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تقديم الكتاب 


بقلم الأستاذ ترك العسيرع 
استطيع أن أقول انك شخص محظوظ جدا وحماتك فعلا تحبك» حيث انك 8 
ستتعلم برمجة ۴۲۵۳۲۷0۲۸ ۸۲. من مبرمج (حقيقي) وليس مبرمج ا د . 
أكاديمى نطاق انجازاته لا تتعدى كتابة برام ببضعة سطرر لحل أتلة اخ 12591217215 ۴ ۷1 
أو واحب عملي فانا أتحدث عن أحمد جمال وهو من كبار المحترفين الحرب ا 
والذي له بصماته في مشاريع هي تتحدث عنه» ويكفينا فخرا بأنه المستول الأول لموقع ۷043۲3 والذي يمثل 
اكبر مجتمع للمبرمجين العرب حول العالم. 


ما يعجبني كثيرا في أسلوب احمد جمال دقته في اختيار الكم المعرفي للتحدث عنه» خاصة وسط هذا الكم 
العددي الهائل من الانفجار المعلوماتي وكترة المستندات. فهو يعرف تماما ما يحتاجه المبرمج وما لا يحتاجهء 
ويعلم جيدا من أين تؤكل الكتف وكيف ترمى العظام إما عن جواهره (اقصد شفراته المصدرية )50u ۲٣ع ٥06s‏ 
فهو يتفنن ويبدع في اختيار الأمثلة التي يعرضها بحيث تغطي الكثير من الحالات الحقيقية Real Wor|d ٥°25‏ 
والتي ستظهر للمبرمج عاجلا أم أجلاء ولا يكتفي بذكر أمثلة تشرح الفكرة فقط. 


بخصوص الكتاب» فتقول إحدى الحكم الطريفة: "من الصعب أن تجد قطة سوداء.. في قاعة صماء .. وخصوصا إن 
لم يكن هنالك قطة خير شر!" وكمحاولة لربطها بموضوعنا يمكن أن نقول انه "من الصعب أن تجد أفضل لفغة 
برمجة (موجهة ل ).٤1‏ في ظل هذا الزخم من اللغات .. وخصوصا إن لم يكون هنالك أي لفة برمجة خير شر!" 
فمن بعد ما كانت لفات البرمجة لفات حقيقية مستقلة لها سماتها وشمائلهاء أصبح الحديث في هذه الأيام عن 
تقنيات aa(‏ ل €۲ »)...L11NQ .WP۴ DirectX COM ..N‏ وتكاد أن تكون لغات البرمجة شبيهة فيما بينها إلى حد 
كبير» وهذا الكتاب خير دليل على صحة ما رمیت به» فکاتب هذا الکتاب -بناء على مقدمته- اعتمد على 
مجحموعة كتب تتحدث بلغفات مختلفة ,۷78.٤0#(‏ ...الخ) ليتمكن من كتابة كتاب حول تقنية ..۴١‏ ليس هذا فقط 
بل يقدم شرح الشفرات المصدرية بأكثر من لفة! 


ومن هذا المنطلق كان الاختيار (الذكي جدا) من الكاتب لعنوان الكتاب 2008 0ا0 ں5 أهuءأ۷‏ دون تحديد اللغةء 


فلا يوجد بعد اليوم مصطلح اسمه مبرمج 8351٤٥‏ أو مبرمج #)€ء فقد توحدنا (نحن معشر المبرمجين) وأصبحنا 
جميعا ننتمي إلى عائلة " آل مبرمجي. N۴1‏ '. 


يغطي هذا الكتاب ابرز المواضيع الأساسية لتنقية.٠۴.‏ ومن ثم يأخذ بك جولة إلى مواضيع متفرقة مثل برمجة 
قواعد البيانات Database Progra ۳"٣‏ نماذج .Windows ۴0۲۳s‏ وبرمجة ويیب. كما سيسيل الكاتب لعابك 
أكثر عندما تعلم انه لم يتجاهل التقنيات الجديدة (والتي ظهرت مع الإصدار الثالت من إطار العمل. ٤١‏ 
)۴amework‏ مثل تقنية ١۵‏ || الموجه للتعامل المتقدم مع البيانات كع )آ۸٤ .0ata‏ وتقنية ۷۲۴ والتي تمتثل 


الجيل القادم لبرمحة واجهات الاستخدام قابلة للنقل كع٤ه/۴اع†أ١!|‏ rمUs‏ eاortab.‏ وتقنية €۴“ والتي توفر حلولا 
أكثر إنتاجية للتطبيقات الموزعة ١5‏ ٥i†ةءiاممA‏ dعDistrihut.‏ وهذه مواضيع من النادر جدا أن يستطيع شخص 
دمجها في کتاب واحد. 


أخيراء قر تکون ارتکبت خطاأً قي قراءة هذا التقديم (الذي لا يیسمن ولا يعني من جوع ولن يوقي حق الكتاب 
ومؤلفه). O STS‏ 


-- ترکي العسيري 
al-asiri. COM‏ 


I O O نبذة عن الموؤلف‎ 

I O هذا الکتاب‎ 

وحنوياتث الكتاب 0T‏ 1 

E O O 2008 الاب 02 تحميل نسختك الأولى من فيجوال ستوديو‎ ٠ 
I O O .N۴٤۲ 2008 الباب 03 الجديد وع ال‎ ٠ 
O DS E Dy الباب 04 مفاهيم بيئة ع٠. الرئيسيۃ‎ ٠ 
TUE O O Visual Studio 2008 الباب 05 الواجهة الأساسية لل‎ ٠ 
OO O E الباب 06 مكونات اللغة الرئيسية في أع١. الجزء الأول‎ ٠ 
LIO iE EER SA ERS الباب 0/7 وكونات اللغة الرئيسية في أ۴ع٠. الجزء الثاني‎ ٠ 
A O 00۲ الباب 08 مقدمة إلى البروجۃ كائنيةۃ التوجہ‎ 
TOO Sosa Saale ca e الان 09 nterfacesا - الواجھات‎ 
LOG a O DG O البات 10 الأخطاء واقتناصها‎ ٠ 
DID N O O O OG DG Collections تlعaيgجتll‎ 11 ull 
DA o yT الباب 12 البروجة المتقدمة في 2008 أع..‎ ٠ 
DOD O System. 10 .neغ الباب 13 الادخال و الاخراجة فى‎ ٠ 
DD O DO O O Windows Forms .net JI الباب 14 برمجة النوافذ فى‎ ٠ 
OT n DL CR N CS CE O ESS +GDI 15 lull ° 
FOU SSO SEDA DSGES ASA Windows Presentation Foundation 16 ull 
QO a A۸00. الباب 17 قواعد البيانات باستخدام‎ ٠ 
SOS SEAL E EOS EE ESE OO Lo LINQ 18 لبا‎ 
CI WWF 19 qlıll e 
CAD O O O o WCF 20 lull 
BOD O O النات 21 نقاط وتقدوۃ‎ ٠ 
BTID LEED Ea ASP. الباب 22 تطوير المواقع باستخدام‎ ٠ 
GOA a o O O O O خاتهةۂۃ الكتاب. وشكر‎ 
CAE الوصادر‎ 


10 


DS DSO E O EG O O O وقدوھۂہ الکتاب‎ 
DT N O نبذه عن المولف‎ 
IO A EE A E O هذا الكتاب‎ 
o O OEE وحنويات الكتاب‎ 
2008 الباب 02 تحميل نسختك الذولى من فيجوال ستوديو‎ 
I LO SC Visual Studio 2008 .النسخة الكاملة ون‎ 1 
0 e O EO IE EO Visual Studio 2008 .النسذ المجانيةۃ من‎ 2 
O O ۷5 2008 3.ترقية مشروعك الذى يعمل على ال 2005 ۷5 إلى‎ 
.NE1 2008 الاس 03 الجديد مع ال‎ 
AA. a O a O Silverlight aia. 1 
AG. E EOS E OO OOD ESO Lا|NQ .نقنیۃ‎ 2 
I O E LO O O OT OS NP۴ .تقنیۃ‎ 3 
I N E DN O Expression #عcعggڊg.4‎ 
SE O WC۴ 5.تقنيۃ‎ 
SE a a O O O Code Refactoring. 6 
اللات 04 ففاهيم بينۃ ۲ع٠. الرئيسيۃ‎ 
BT SSO ESOS TORSO SEO net Gêl. 1 
ET .٠.عأ .العناصر الأسانسيۂ لبيئۂ‎ 2 
CO E O O O a Base Class Library Jl. 3 
GO a .net Assemblies.4 
O2 O O o CIL JI.5 
GO SS O O E E E Metadata Jl. 6 
CAS O O O DS O O O Manifest Jl. / 
2 E O CE E O IT ET Common Type System.8 
O O O OE CTS Members .1.8 


محتويات الكتاب 


6 SD O CTS Data Types .2.8 
GT o O Common Language Specification, 9 
GE Si O O Common Language RunTime. 10 
O Object Browser pٿIlaخüul.‎ 11 
LO EOE Name Space claصill‎ ٽlJlجg.‎ 12 
DO استيراد مجالات الأسماء‎ ..2 
DL استخدام برنامجة 5۳هل|ا‎ 13 
DD O O O O open source .net jن£‎ ûحبېت ھل‎ 14 
2008 الباب 05 الواجهة النساسية للفيجوال ستوديو‎ 
TO O O O .كيف اكتب الكود ۽‎ 1 
e Visual Studio 2008 Command Prompt plaèüwl .1.1 
7 Ey اext°ad استخدام ال‎ .2.1 
BD Notepad++ ڻlaخüwl‎ .3.1 
N o SharpDevelop .4.1 
ED O O Visual Studio 2008 .البدايۃ و2‎ 2 
CE O برنامجك الأول‎ .1.2 
الاس 06 مكونات اللغة الرئيسية الجزء الأول‎ 
BE yy Co1s01 e خصائص‎ 1 
OO تعريف المتغيرات‎ 2 
O أنواع المتغيرات‎ ,..2 
O Constant ٽılgûll‎ .2.2 
OD CE O E Read Only Field القيم للقراعa فتط‎ .3.2 
93 ........... esen S٤٣٣٥ .المتغفيرات النصية‎ 3 
O O O St٣1٣۸٥ الخصائص والدوال الئساسية لل‎ ..3 
O 0 0 OD aa تقسيم النصوص‎ ..3 
GE O دود النصوص‎ 3.3 
O O ومقارنةۃ النصوص‎ ..3 
OS E O O سي شارب فقط‎ - Escape Characters .5.3 
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GE O O O S۲1٣3 التحويل من وإلى‎ ,..3 


a SEEINGEULIOEE 13 
OE O O O .التعامل مع التاريخ والوقت‎ 4 
OR O O a 5.التحويل بين المتغيرات الوختلفة‎ 
OO Widening Conversions .1.5 
OO o 0 Narrowing Conversions .2.5 
LOD. O Cast JI ٽlılوe‎ .3.5 
OL Convert pIaèختwlڊ‎ Jيgحتlا‎ .4.5 
LOL O O a .٠.عأ .الجيل الشرطية في‎ 6 
TOL O n أاأساسیات الشروط‎ .1.6 
OT O O دوج الشروط‎ .2.06 
LO E AndAlso .3.6 
O OrElse .4.6 
1 O a E switch استخدام ال‎ .,6 
LOG .الحلقات التکراریہ‎ / 
TOE E O FOF = Next LOOP 17 
LOP While Loop .2.7 
1 For Each LOO 13.7 
الان 0/7 مكونات اللغة الرئيسية في أ۸€. - الجزع الثاني‎ 
LID .لنفهم برنامجنا الذول‎ 1 
MIE O O Function JIgدll.‎ 2 
LE Methods قرطلl.‎ 3 
LL O o .الوظيفةۂ ا01‎ 4 
IIE SC by7a2a1 .الإرسال بالمرجع ۴ ١ءء ۷ والإرسال بالقيوةۂ‎ 5 
LID .الوصفوفات‎ 6 
1 Ar٣ھy5 وا هي الموصفوفات‎ .1.6 
LIT تكوين الوصفوفات‎ .06 
TIL الوصفوفات متعددة الأذبعاد‎ ,.06 
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gg عمل وصفوفة ون الوصفوفات‎ .4.6 
O إرسال واستقبال المصفوفات من وإلى الدوال‎ .5.6 
O خصائص الوصفوفات الرئيسية‎ ..6 
O Enumeration Jl. / 
O Structure .تاك‎ 8 
O StrFuCcÈخ إنشاء الدوال داخل ال‎ .1.8 
E E Reference glgiillg Value عlgiأll,‎ 9 
o .المقارنات‎ 0 
E Nullable Types. 11 
ASSO EES ESOS SS Nullabl‌e‌ ضخصانص ال‎ .1.11 


N ooo الوعاول ؟؟‎ ..11 


الاس 08 مقدوة إلى البروجۃ كائنيۃ التوجہ 00۴ 


O Cاaككعك .وقدوة إلى الفنات‎ 1 
N ooo Constructors GIaugll .1.1 
a Destructor تlgدھagلll‎ .2.1 


O O Static .التعرف على‎ 3 
RR RR Static Class .1.3 
RR Overloading Jيqحتلl .إعادة‎ 4 
E Access Modifier Jgصgll‎ Glفرعو.‎ 5 
O gs oo 00۲ .العناصر الأساسية في‎ 6 
oooy Encapsulation .1.6 
O O Inheritance .2.6 
N Polymorphism .3.6 


O Encapsulation. 7 


7.. استخدام دوال  c‏ 1 طںم للوصول إلى متغیراٹ ٤خ‏ 172٣م‏ 


O Constructor JI İù۾‎ ءjجڪ إرسال القيم‎ .2.7 
ooo Type Property JI pIaڌaüwl‎ .3.7 
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E Inheritance #Aڌlرgلl.‎ 8 


Ol 0. ly اد-a تعريف علاقة‎ ,.1.8 


sealed -NotI1nheritable ãjوجحملا الكلمة‎ 2.8 


E a aT الوراثة المتعددة‎ ,.3.8 


8. التعديل في الكلاس المشتق O‏ 
5.8. العلاقة من نوع a-كة٣ O‏ 


O Casting ٽllgحتll‎ .6.8 
O الكلمة المحجوزة ك1‎ .7.8 
O Visual Studio Class Diagram .8.8 
O O Polymorphism JI. 9 


Abstract JI. 10 
Abstract method .1.10 


الاس 090 nterfacesا‏ - الواجھات 


kmn 


yy Interface JI فیڀرعi.‎ 1 
N RR ag Names Clashes, 2 
E IEnumerable interface. 3 
a ICloneable interface.4 


Rog 1IComparable interface. 5 


الاس 10 اأخطاء واقتناصها 


O Syntax Errors ۃggحنلl .الأخطاعء‎ 1 


ooo ۴1٣21 1وy استخدام‎ ..5 
o طا٣e2k استخدام‎ .5 
E TargetSite plaخawul‎ .3.5 
O HelpLink pIaخüwl‎ .4.5 
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Collections الاس 11 التجویعات‎ 
System.Collections qa Interfaces JI.1 


E System.Collections q١û تاlنûفلl.‎ £ 
N N TOLE 2 
a HashTable .2.2 
N oo Queue .,3.2 
O Stack .4.2 


الان 127 ابرمجة المتقدمة في 2008 ٤ع٠.‏ 


O Generics JI. 1 
o Structure and Class Generics .1.1 
yT Generic Collection .2.1 
E where T ٍڪڻlدختسا‎ .3.1 
Rg oa Delegates JI. 2 
O Delegates JI فڀرعîت‎ .1.2 


O r ooo Events ةlaحiلl‎ .2.2 


Ty Automatic Properties, 6 
O Lambda Expressions Iagll ٽlرuبعû.‎ 7 
e Object Initializer Syntax ٽliilکڪJl‎ ءعlن]| .صغ‎ 8 
a Anonymous Types #Algaجaلl .الأنواع‎ 9 
A Partial Methods. 10 
E Garbage Collector. 11 
O 6٤٥ الفئة‎ .1.11 


E Operator Overloading. 12 
N ooo Pointers GIرشğgJll.‎ 13 


15 


DO O O O E O O O Query Expressions. 14 
20 Siva ESDLAOSESASSENEES DEUS DAES ES eas Preprocessor Directives, 15 
DOA O #regqion, #endregion .1.15 
DE O IT, OT, Dll, EOIN 205 
DET #define, #undef .3.5 
IOI XML Commenting. 16 
o .net assemblies. 17 
A E N ooo namespace Jl .1.17 
DT Default Namespace JI bî .2.17 
DT O o Format of a .net Assembly jJبوسالا شكل ملف‎ .3.17 
DT E Private Assemblies .4.17 
DD Shared Assemblies .5.17 
DTI O O Multithreading ة4ددعتولاl .الوساراتٽت‎ 18 
DTG مقدوۃ‎ .. 8 
o OT Synchronization jaljتll‎ ٽاlaزیروجلا‎ .2. 18 
IBRD O oo System. Threading. Thread .3.18 
IED O Priority Augلlgidll‎ .4.18 
2 ParameterizedThreadStart .5.18 
IO o O Foreground and Background .6.18 
DOD O O Threads Synchronization .7.18 
IOS O ThreadPool .8.18 
IEE O O O BackgroundWorker .9.18 
System. 10 .net الاس 13 الادخال و الاخراجة فى‎ 
n EEO SyكS‎ ٤e۸. 10 .الفنات الأساسية في‎ 1 
JOD O Directory g Directory1In fo jùيې .الفوارق‎ 2 
JOG O O O O O Directorylnfo ۉAidll.‎ 3 
IO Directory Aذأdll .التعامل مع‎ 4 
0 E Drivelnfo AغAiذفلا .التعامل مع‎ 5 
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yT Filelnfo 2y لJیاعتلا.‎ 6 
o 0٥0م٤ إنشاء وفتح الملفات باستخدامٍ‎ ,..6 


OpenWrite g OpenRead pۈدختwlڊب‎ Glخلېلا فتح وإنشاء‎ 26 


E Open Text pIaختwښlڊ فتح الملفات‎ ,.6 
e AppendText g Create Text ٍplaخüwlڊ الفح‎ .4.6 
O oT ۴11٥ .التعامل مع الفئة‎ / 
O Stream,8 
N RR goy FileStream Aidll .1.8 
O التعامل مع الفنات المشتقة‎ .2.8 
O StreamWriter, StreamReader .3.8 
e SEEING TERORE 48 
O BinaryReader, BinaryWriter .5.8 


O FileSystemWatcher,9 


Object Serialization. 10 
Serialization JI وع‎ Jماعتلا‎ . 1. 10 
XmMLSEeEFIALLZEF 20 


Windows Forms .net JI ıف الا 14 برمجة النوافذ‎ 


E O بالكود‎ Windows Forms cli. 2 
a إضافةۃ أدوات بالکود‎ ,..2 
O إضافة القوائم‎ .22 
e Viusal Studio .net .إنشاء فورم عن طزريق‎ 3 
E E Windows.Forms clauill Jlجşg.‎ 4 
Ty Windows. Forms jصliرeل الفنات الرئيسية‎ 1.4 
O ٣٣٣ خصائص الفئةۃ‎ 2.4 
O "د٣٣۸ دوال الفئةۃ‎ .3.4 
N "ها٣٣ أحداث الفنة‎ .4.4 
O Controls Aذdll,‎ 5 
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oo Controls Aئفلا ضفصائص‎ ,..5 
N Contr015s أحداث الفئة‎ 25 


System.Windows.Forms.Control ٽlgدİ.‎ 6 


E EUELOR 1L6 
O CheckBox .2.6 
O RadioButton .3.6 
SOS ListBox g ComboBox .4.6 
O Textbox .5.6 
O Label .6.6 
O Panel g GroupBox .7.6 
E RichTextBox .8.6 
O O Timer .9.6 
O TreeView.10.6 
O ooo ProgressBar .11.6 
O TrackBar .12.6 
Sabet DateTimePicker.,13.6 
O Dialogs. 7 
O MessageBox .1.7 
ga Dialogs Controls .2.7 
O ColorDialog .3.7/ 
E FORLDIlNOG 47 
N Open And Save Dialogs .5./ 
RR ooo PrintDialog .6.7 
N oo .أحداث الماوراس‎ 8 
O To ,أحداث الكيبورد‎ 9 


FGDl| 15 اللات‎ 


N +٣ .مقدمۃ إلى ا60‎ 1 
e System. Drawing rءlaصill‎ Jlج‎ ٽاlیوتحو.‎ 2 
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E Pen Aئفلا.4‎ 


E XAML .2.1 
O Microsoft Expression .3.1 
O O O ۷۶۴ 2.أنواع تطبیقات‎ 
O WPF تاlيوتحو.3‎ 
RR P۶۴ 4.تطبيقك الذول في عالم‎ 
RR ooo 5.البدء ون خلال فيجوال ستوديو‎ 
a WPF ٽlgدİ.6‎ 
ooo Data-Binding ٽاlنlبll .ربط‎ 7 
O WPF 2D.8 
ay Shapes pڻاaختسښاب الرسم‎ .1.8 


O O ۶٥۸ خصائص القلم‎ .8 
E O Bا]usا٣ ضخصائص الفرشاة‎ 8 


O O O Transformations JI .4.8 

O WPF yê Animation JI.9 

0 .الحرکةۃ باستخدامٍ ×XAM|‏ ا 
11 .iعریف O oy Styles‏ 
11.. تغفییر طبیعة ال عار†؟ N‏ 
11.. اشتقاق ٥‏ ارا؟ من اخر O gy‏ 
3.11. تصمیم عارا؟ باستخدام O ۲٣ع ge٣۶‏ 
RR oo Templates JI.12‏ 
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3D WPF.13 
XNA ple. 14 


Microsoft Expression Studio, 15 


TEE EEE Microsoft Expression Design .2.15 
E OE ODEN EEO Microsoft Expression Media .3.15 
E Microsoft Expression Encoder .4.15 
E Expression Blend .5.15 
۸00.۴۲ الاس 17 قواعد البیانات باستخدامٍ‎ 
TE PEEP CECE ETP CRETE EEE A۸D0.ہe٤ .البدء باستخدامٍ‎ 1 
A ASS EVOR E EE ADO.net Data Provider ٽligكsg.‎ 2 
e المدعووۃ مون قبل مایکروسوفت‎ Data Providers Jا‎ .1.2 
Third-Party ADO.net Data Providers gjخİ‎ Aۃgدخ التعامل مع وزوداٽ‎ .2.2 
EET EE System. Data cعlaصill‎ Jl5 .ركوناٽ‎ 3 
O O SQL Server 2g غۂılدıll.‎ 4 
a إنشاء قاعدة البيانات‎ .1.4 
ASSEN OO SQL Statements .2.4 
O O O Stored Prcoedure .3.4 
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قدوة الكکتاب 


بسم اللہ الرحمن الرحيم. والصلاة والسلام على أشرف الذنبياء والمرسلين. نبینا محمد وعلى آلہ 
وصحبہ آجوعین. 


اللهم لا سمل إلا وا جعلتہ سمهلا وأنت تجعل الحزن سملا . 


أما بعد .. 


فهذا الكتاب هو عبارة عن تجميع لسلسلةۃ من الدروس استورت على مدار ستۃ أشھر 
على منتدى فيجوال بيسك للعرب حول تقنيات .2005 ا۸۴ الجديدة ٠‏ تم الانتهاء منها بحود 
اللہ في أول سبتمبر 2008 . ومن تم تم تجميعها مع وضع إضافات جديدة عليها ضهن كتاب 
منسق هو الكتاب الذى تجده بين يديك البور . 


فكرة الكتاب جاعت بعد قراعءة كتا 3.5 Pro C# 2008 and the .net‏ 
Platform‏ للروۆلف senاroe‏ ا .Andrew‏ حيث وجدت ورجعاً كاملا باللفة الإنجليزيۃۓ لكل وا 
يختص بنسخة K#‏ الجديدة من مايكروسوفت ٠‏ ومع أني لا أدعي أني قمت بعمل مرجع باللغة 
العربية إلا أنني أستطيع أن ازعم أني غطيت بصورة موجزة أغلب النقاط الرئيسية في مجال ال 
net‏ بلغتیہ C#‏ و أع۷6.n‏ . وللوزيد أحلتك إلى روابط من 150 لتستطيع التعمق في كل 
وجال على حدة . 
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في هذا الكتاب ربوا لن تجد تفصيلاً شاملاً لنقطة وا » فلا تنتظر مني مثلاً أن تعرف بعد 
نهاية فصل ما كل وا يتعلق باحد الأدوات. ولكنك تستطيع التعرف على أكبر قدر ون 
المعلومات حول بنية هذه الذداة وطريقة تعاملها وسلوكها داخل برنامجك ٠.‏ فهذا الكتاب 
يھدف لذن تستطیيع من خلالہ فهم بنية .أ٥۸‏ أكثر من دعمك لتطور تطبيقات بسرعة دون أن 
تفهم بنيتها الداخليہ وکیفیہ تعاولھا وع وکونا اللعہ الوختلفہ . 


وبالرغم من ذلك ستجد ہیں الفترة والذخری تطبیق عملي نقوم بعملہ سویۂ لتطبيق بعض 
المفاهيم التي تعلمناها لربط التعليم النظرى بالتطبيق العملي لتحصيل أكبر كم من الفائدة من هذا 
الكتاب ... لذا ستجد بين طيات الأكواد الموجودة في هذا الكتاب عدد كبير من الذمثلة 
والتطبيقات الصغيرة لكن لا تنتظر مني أن أقول لك جرب هذا التطبيق مثلا خطوة بخطوة . 


أسال اللہ أن یکون هذا الکتاب مفیداًء فا کان فیہ من صواب فون اللہ وما كان ون 
خطا فون نفسي والشيطان. واللہ الهادى إلى سواء السبيل. 


أحود جوال خليفۃ 
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لا يشكر اللہ من لا يشكر الناس . ومؤلف هذا الكتاب لديہ في الواقع قائمةۃ طويلة باشخاص كثيرين 
يستحقون الكثير من الثناء والدعاء ‏ لذا اسمح لي أن أسرد أسماءعهم هنا . حيث أهدف من ذلك لذن أتذكر 
دوما أن هذا الكتاب لم يكن ليكون كذلك لولا فضل اللہ علي أولا واخرا بالتعرف والاستفادة من هؤلاء 
الأنشخاص حتى جاعت الثورة المتواضعة التي تراها بين يديك الان ٠‏ لذا أقدم شكرا خاصا للأستاذ تركي 
العسيرى صاحب كتابي (نحو برمجةۃ كائنيةۃ التوجہ) تم (برمجة إطار عمل شيئي من خلال ا16.) حيث كان 
لکتبہ کبیر الذٹر فی توجیہ مساري في عالم البرموجۃ ٠‏ زاد على ذلك أن شرفني بتقدیمہ لهذا الکتاب بكلمۃ 
أعطاني فيها أكثر من حجمي كتيرا ‏ لذا أرجو من اللہ أن أكون عند حسن خن أستاذى بي ٠‏ وألا خیب رجائہ 


الشكر أيضاً ووصول للوهندس محمد سامر سلو حيث استفدت كثيرا من ومقالاتہ في تجهيز هذا الكتاب . 
كوا أجدد الشكر لإدارة منتدى فيجوال بيسك للعرب ومشرفيہ على تشجيعهم لي لتقديم كتاب في هذا 
الوجال ٠‏ أخص بالذكر منهم الئستاذ عبد اللہ العتيق مدير الموقع والذخ أحمد بدر » وباقي الإخوة الكرام ... 


الشكر أيضا لكل ون المهندس أحود عيسوع. الوهندس محمد النبهاني على مساعدتهم لي لتنقيح هذا الكتاب . 
فالنسخ الذولى من الكتاب كانت تزخر - ولا تزال - بالأخطاء ٠‏ أشكر لهم تفريغ جزء من وقتهم لقراءة الكتاب 
وتوجيهي ووساعدنی على تدارك هذه الميشكل قبل إخراج النسخة الذخيرة . 


شكر خاص جداً ... 


شكر خاص جدا للمهندس الطبيب وليد بوالطمين ٠‏ والوهندسة نورهان عادل ليس فقط لمساعدتهم في تنقيح 
محتويات الكتاب ٠‏ لكن لذن الكتاب الذي ترام أمامك هم من قاموا باخراجہ ليكون بهذا الشكل بدعاً ون 
تصميم الصفحات وأسلوب العرض والكتابة والذمثلة والتنسيق ٠.‏ وانتهاء بتصميم الغلاف ٠‏ أكرر شكرى لهم 
وأقدر لهم كثيراً ما بذلوه من جهد لإخراج هذا الكتاب في أبهى حلة . 


الشكر عام أيضا لكل من استفدت منهم في إعداد وإنتاجح هذا الكتاب ٠‏ واعتذر لمن لم خانتني الذاكرة فلم 
أذكره هنا ٠‏ الشكر أيضا لجميع من استفدت منهم في حياتي العامة أو في دراستي ٠‏ لذهلي بالطبع ولجميع 
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- أسماء البرامجح المذكورة في هذا الكتاب مثل 0|٣۴. |٣۵0۷‏ وغيرها هي علامات 
تجارية مسجلة لأصحابها و الكاتب يحق بملكيتها لأصحابها وان لم يسر إلى ذلك مباسرة 
للاخحتصار. 


- تو اختبار اغلب محتويات المادة العلمية للملخص ٠‏ إلا أن الكاتب غير مسؤول باي حال عن 
وحتویاتها أو سوءع استخداوها. 

- حقوق الکتاب محفوظۃ للمؤلف ٠‏ ولا یحق طباعتہ او توزیعہ او استخدامہ لذي غرض تجار 
بدون أذن من المؤلف. 

- أغلب الذكواد تم تجريبها داخل الكتاب ٠‏ ولكن هذا لا يمنع وجود أكواد غير مجربة أو وجرب 
اتجام واحد ونھا فقط C4‏ أو ".۷/6 . لذا ساکون سعیداً لو ارسلت نائج تجاربك على بریدی 
الإلكتروني. 

- وبنفس الطريقة لو وجدت خطنًاً إملائياً أو تعبيرياً ساكون أسعد لو راسلتني لتخبرني بہ. 

- بعض الذكواد الموجودة ليست من تاليف الكاتب ٠‏ بل منها منقول وتوت الإشارة إلى عمليات 


النقل حال وجودها ٠‏ وومع ذلك فالمؤلف يعتذر عن أى نقل غير واضح أو لم تتم الإشارة لوصدره 


بصسورھہ صحیدہ. 


- روابط المواقع الموجودة في الكتاب تم التحقق من سلامتها وقت إنتاج هذا الكتاب إلا أن 


الکاتب لا يضمن عملھا آثناء قراءتك لمحتویاتہ. 
Microsoft®‏ 
JUNI NET‏ 


إنتاج و تصميم موقع فيجوال بيسك للعرب ١c0۳٥.ط4a۲aطv‏ 
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يضم هذا الكتاب مجموعة من أساسيات عالم أ۸€. وتحديدا .2008 اع" عبر عدد ون الفصول 
والابواب ٠‏ هذا موجزها: 

الباب الذول: هذا الباب ليس أكثر من كونہ مقدمة عن محتويات الكتاب والفهرس وبيانات عن 
كانتب الكتاب والاتفاقية. 

الباب التاني: هنا تبدأً الإنطلاق في عالم .2008 أ۸€ حيث يقودك هذا الجزء لتحميل نسختك 
من الفیجوال ستودیو وبروجۂ برناوجك الذول وکیفیہۂ الترفیہ بین الإصدارات المختلفہ. 

الباب الثالث: هذا الباب ومخصص لتحفيزك على الانطلاق في عالم . أ۸€. حيث يسرد لك 
بصورة مختصرة نبذة عن التقنيات الجديدة الني ربها تفنعك بضرورة اقتحام عالمر . het‏ إذا لمر 
تكن مبرمجا من قبل فهذا الباب ليس مخصصا لك سوع لاستعراض الجديد فقط. 

الباب الرابع: هنا تجد وصفا لوفاهيم بيئة .۸€ الرئيسية وعناصرها المختلفةۂ. 


الباب الخامس: من هنا تسنطبع الانطلاق في تصميمر براوجكت. حيِثْ يعرضص لك هذا الباب 
كيفية البدء بالبرمجة ومن ثم كيفية الانطلاق في عالم 511010 أةاكا۷ كبينة البرموجة الخاصة 


الباب السادس: هنا سنبداً باستعراض عناصر اللفۂ النساسيۂ وکیفیۂ کتابتھاء هذا الباب ووجہ 
بصورة أساسية للمبتدئين وهو فقط تذكير باساليب كتابة اللغة للمحترفين. 


الباب السابع: استورار للباب السابق ولكن بصورة متقدمة نسبيا. 


الباب الثتاون: هذه هو مدخلك للبروجة كائنية التوجہ 00۲۶ حيث يمكنك التعرف على الفنات 
ومحتوياتها وكيفية العمل من خلالها . 


الباب التاسع: الواجهات ١٤۴۲۴3٤٥۴5‏ | وخصانصها واستخداماتها في البرمجة. 
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الباب الحادى عشر: يسرد هذا الباب بالتفصيل أنواع ال ٣)|0١5‏ 0|8 واستخداماتها المتكررة 
في براوجنا المختلفة . 


الباب الثاني عشر: البروجة المتقدوة هذه المرة ٠.‏ حيث سنتعرف على عناصر أكثر تقدوا في لغہ 
البروجہ وف عالر net.‏ 


الباب التالت عشر: طرق الإدخال والإخراح المختلفة وكيفية التعامل مع الملفات . 


الباب الرابع عشر: الانطلاق في عالم برمجة ال؟۶ ۴0١۲۳"‏ 1۸00۷5 والذدوات التي تحتويها 
والخصانص والرسم وخلافہ . 

الباب الخاويس عشر: ياخذك في رحلة سريعة في عالم الرسوميات تنائية الأبعاد من خلال 
+GD|‏ . 


الباب السادس عشر: بداية لتقنية ۷/۴۴ المختصة بالرسوميات ثنائية وثلاثية الأبعاد وأدواتها 
وبراودها المختلفة . 


الباب السابع عشر: في هذا الباب يوكنك الانطلاق في عالم برمجة قواعد البيانات من خلال 
.۸00 وما یستلزم ذلك من قواعد البیانات 5Q1 56۲۷٥١‏ وخلافہ . 


الباب التامن عشر: التقنية الجديدة من مايكروسوفت للاستعلام 1Q‏ أا يمكنك البدء بها هنا. 
الباب التاسع عشر: هنا نبد في عالم تقنية ۷۴ الجديدة من مايكروسوفت لإدارة المشاريع. 
الباب العشرون: أيضاً مع عالو ٣۴‏ لوشاركة البرامج والتطبيقات من مايكروسوفت. 


الباب الحادى والعشرون : موجووعة من الوواضصيع الهامة تتعلق بتشغيل برنامجك على الأجهزة 
المختلفة قبل الانطلاق في عالم الويب في الباب اللاحق . 


الباب التاني والعشرون : الباب الأخير ٠‏ يوكنك هذا الباب من تطوير تطبيقات ويب تفاعلية من 
ASP.Net JlJ‏ .„ 


أرجو من اللہ أن يكون في بعض محتوياتها الفائدة والنفع... 
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إجابة هذا السوال هي الأصعب بالنسبة لي طوال مشوارى في عمل هذا الکتاب. فهذا الکتاب اا 
يستهدف موستوى معين وليس موخصصا لفئة معينة. فهو يحاول أن يقتبس من كل بستان 
زهرة. ويضصعك على أول الطريق أيا كان مستواك. 


فاذا كنت موبتدعاً فابواب الكتاب الأولى توضد لك ربها أساسيات البروجة ٠‏ أها لو كنت محترفاً 
فيكفيك معرفة الجديد فقط والانطلاق في الأبواب التي تختارها لنفسك ٠‏ أما لو كنت متوسطا 
فهذا الكتاب سيكون نقطة انطلاق جيدة لك في عدة فروع من عالم .2008 أع۸ . 


لذا أرجو أن لا يول المحترف من كثرة التكرارات في الكتاب ٠‏ أو توضيح الواضح خصوصا في 
الأنساسيات . حيث يوكنہ تجاوز النقاط الأساسية والدخول فورا في النقاط التي يراها هامةۃ 
بالنسبةۃ لہ ٠‏ أها إذا كانت هذه هي المرة الذولى لك للانطلاق في عالم البروجة فحاول ألا تفوت 
شينا من محتويات الكتاب ٠‏ الفصول الذولى بالنسبة لك هي أساس كل شيء بعد ذلك . 


يهمني جدا أن تطلع على محتويات الكتاب في الصفحة السابقة ٠‏ فهي توضح لك بعض الأذبواب 
التي سيكون ون المفضل تجاوزها لك كمبتدئ ٠‏ أو كمحترف ايضا . لذا فضلا لو كنت تجاوزت 
الصفحة السابقة أن تعيد النظر فيها مرة أخرع. 


ے3 


في كل الكتب التي قرأتها باللغة العربية - أو أغلبها - كنت أجد نوعا مع عدم الراحة مع قراءة 
الترجمة ٠‏ وفي مثل هذه الحالات كنت أفضل الإطلاع على الكلمة الأصلية باللغة الإنجليزية. 
وهذا هو الذسلوب الذی حاولتٰ قدر الوستطاع انتھاجہ ضمن هذا الكتاب . 


هناك بعض الترجمات لا تبدو سينئة ٠‏ متل الجمل الشرطية وحلقات التكرار كترجوة لكلوتي 
Conditions‏ و 00psا‏ . هناك ترجھات ربوا تبدو أقل جودة ولکنھا لا تعد سینۃ متل تعریف 
الل ككهاCz‏ على أنہ (فنة) وتعريف ال عءع٤ه۲۴عا١!ا‏ على أنها (واجهة) ٠‏ المتغير بديلا ل 
ماVariab‏ وهكذا ٠‏ في هذه الحالة ستجد في العادة تم ذكر الترجمة مرة واحدة بديلا عن 
ذكرها في كل ورة ٠‏ أها ترجو متل (المشيدات ٠‏ المهدمات ... الخ ) وخلافہ فلم اتركها كلها 
ولم استخدمها كلهاء استخدمت فقط ما رأيتہ مناسباً إلى حد ما وتركت البقية. 


وعلى كل ثق بانك لن تجد كلمة عربية لم يتو ذكر الكلمة الأصلية لها في أي مكان ٠‏ أيضاً اا 
تحاول الاعتماد على ترجمتي في قراءة كتاب عربي اخر ٠‏ فحتى اللحظة لا يوجد إي نوع من الاتفاق 
بين الكتاب على ترجوة أغلب مصطلحات الكومبيوتر فضلا عن أن نتحدث في اتفاق عن ترجمة 
وصطلحات البرمجة . 


33 


کی اکت ا 


فیحوال ستودیو 2008 


الباب الثانى تحويل نسختك ون الفيجوال ستوديو 


أ . النسخة الكاولة ين 2008 Visual Studio‏ 


يوجد عدة نسخة متاحة للتحميل من 2008 0ألدا؟5 أةاءا/ا على موقع مايكروسوفت» النسخة 
الكاملة ٤di†|0۸‏ أfessionaدPr‏ غير متاحة بيصورة مجانية ولكنها موجودة بيصورة تجريبية لمدة 
90 يوم فقط» تجدها على هذا الرابط: 


وایند 8 ©0 


http://msdn.microsoft.com/en-us/vs2008/products/CC268305.aspX 


النسخة التى يتم تحميلها من هذا الرابط تكون على شكل ملف 150.* برنامج 50| ۴0۷۴۲ هو 
برنامج يستخدم لمحاكاة وجود C0‏ أو 0۷0 فى الملفات التى يتم تحميلها ولا بد من وجود 


القرص الخاص بها . 
یمکنک تنزیل برنامج 50| ۴0۷8۲ من هنا: 


http://www.freedownloadscenter.com/Utilities/ Backup_and_Copy_Utilities/Powerl SO.html 


إذا كنت ترغب فى الترقية للنسخة الكاملة » قم بطلب ال ۸6۷ ۲۲0۵٤‏ من مايكروسوفت من هذا 
الرادط ٠:‏ 


رابط 9ے @ 


http://msdn.microsoft.com/en-us/vs2008/products/cc263903.aspX 


ومن ثم قم باختیار Add or Remove P۲]08£۲2۳5‏ وقم باختیار 2008 Studio‏ ا۷isua»‏ ومن ثم قم 
باختيار 0۷€ ۸€/€£ ha¬‏ ... قم بإدخال ال ۴۷× اuCك0اP‏ الذي قامت مایکروسوفت بإارساله 


ڏڪ . 
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الباب الثانى 


تحويل نسختك ون الفيجوال ستوديو 


2. النسذ المجانيةۂ ون 2008 Visual Studio‏ 


إضافة للنسخ الكاملة التي توفرها مايكروسوفت» توفر أيضا حلول مجانية للمطورين» تجدها جميعا 


على الرابط التالي: 


رابط ھے 


http://www.microsoft.com/express/product/default.aspX 


هذه النسخ ال ۴×۲8 اقل فى الإمكانيات من النسخ الكاملة ٤ di0۸‏ أProfessiona‏ ولكنها تعد 


الحل الأكثر استخداما من قبل مطوري الدوت نت › تجد النسخ التالية فى الرابط السابق : 


Visual Basic 2008 
Express Edition _ 


Productivity that Is ideal for first time or casual 
Windows programming. 


A great combination of power and productivity 
for the Windows developer. 


Horsepower with a finer degree of control than 
other Express Editions. 


Visual Web Developer 2008 


Express Edition 


An easy to use environment for dynamic Web 
application development. 


البرتامج 
نسخة من ال .2008 ا16 بأسلوب كتابة ال ٤ئ83‏ على بيثة 
ت¡طو ڍر net Framework.‏ 


http://go.microsoft.com/?linkid=7653517 
نسخة من ال .2008 آ16 بأسلوب كتابة ال #€ على بيئة تطوير‎ 
net Framework. 

http://go.microsoft.com/?linkid=7653518 
نسخة من ال .2008 ا16 بأسلوب كتابة ال ++€ على بيثة‎ 
ه۴۲ أ1 تستخدم لإنتاج التطبيقات المختلفة‎ ۳۵W 0۲). تطویر‎ 

http://go.microsoft.com/?linkid=7653520 
توفر لڪ آدوات‎ .net ۴am eWOا)ىلع بيئة تطوير مبنية‎ 
متطورة لإنشاء تطبيقات ويب متقدمة‎ 


http://go.microsoft.com/?linkid=7653519 
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اللاب التانى تحويل نسخنك من الفيجوال ستوديو 


ÇÎ Server 200ê‏ نظام قواعد البيانات المشهور» يوفر لك نسخه مجانية لإنشاء 


Express 


Net قو اعد بیانات سهلةه التعامل کڪ ڊرا محڪ من‎ A lightweight, feature-rich, powerful database 


for Windows and Web data-enabled needs. 


* Learn more 


http://www.microsoft.com/express/sal/default.aspX 


أحد أدوات مايكروسوفت الحديدة التى تسهل عملية بتاء ال 
Microsoft™‏ 


mash-ups Jig gadgets Popfly: 


http://www.microsoft.com/express/popfly/default.aspX 


الجدول 2. 1. النسخ sئعام×ع‏ المكونة لبيiئة‏ التآطوير .net Framework‏ 


3. ترقية مشروعك الذي يعمل على 2005 ۷5 إلى 
VS 2008‏ 


يمكنك فتح نسخة من مشروعك المبني من خلال .2005 ١€‏ ليعمل على .2008 )1€ للاستفادة 


من خھصائصه . 


قم بفتح المشروع من خلال 2008 ۷5 وسيظهر لك معالج الترقية مباشرة . 

قم باختيار Nex‏ . 

١‏ قم باختيار عمل نسخة احتياطية من الملفات» قم باختيار المكان الذي تود حفظ النسخة 
الخذمة احتاطا قك 

قم باختیار ۸كأ„ا۴ . 

. سيتم إنهاء الترقية » وستحصل على تقرير بالانتهاء بعد انتهاء العمل‎ ١ 

حتى اللحظة فإن مشروعك يعمل من خلال 2008 ولكنه ا زال متوافقاً مع 2005 لتعديل 
الخصائص لتصبح متوافقة مع 2008 فقط قم بالخطوات التالية: 

من orerاExp Solution‏ قم باختیار خصائص المشروع. 

من التبویب عا¡ م C٥۳"‏ قم باختيار .ON ylإ Option |nfer‏ 

.net يصح‎ Target framework رlaتخlo‎ „مã‎ Advanced Compile Options jag ° 
net Framework 2.0. ja ¥ıı Framework 3.5 
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اللاب التانى تحويل نسختك ون الفيجوال ستوديو 


٠‏ الآن سيكون عليك إضافة بعض المراجع التي توجد تلقائيا مع 2008 في أي مشروع قم 
بمعرفة الخيارات التي تريدهاء قم بالانتقال إلى ۸66۲8١٤٥6۴5‏ وقم بإضافة المراجع 
المطلوبة. 
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الجدبيد ود ال اع٥.؟.‏ 
2008 


الباب القالث الجديد وع ال 2008 اع.. 
في هذا الجزء من الكتاب ستساعدني على افتراض نقطتين هامتين» النقطة الآولى هي انڪ تود 
ال ا بتعلم2008 أ€١.‏ » النقطة التانية أنك لم تبرمج للمرة الأولى › سنتحدث في هذا الباب 
لبعض الوقت عن التقنيات الجديدة التي ظهرت في .2008 ۸€ » فلو لم کن را في الأساس 


فلن يضيرك أن تقلب صفحات هذا الباب لتنطلق مباشرة للباب التالى . 


المقصود بهذا الباب ليس فقط التقنيات العامة الجديدة التي ظهرت مع. 2008 أ116 بل كل 
التقنيات التى أصبحت تلقى الدعم الكامل داخل إطار عمل .)0 Wwع۴a٣‏ اه من تقنيات فقط 
والتي سيتم شرحها بدورها في دروس منفصلة لاحقا› أما الجديد في عالم البرمجهة فسيتم التعرف 


عليه في دروس قادمة . 


Silverlight Agiتت‎ . 


كحزء من سياسات مايكروسوفت الرامية إلى محاولة تملك آأغلب المفاتيح الرئيسيهة فى 
مجال التقنية والتكنولوجيا كانت تقنية ٣عاااع۷آأS‏ كمحاولة لزعزعة استقرار محركات ۸كها۴ 
على عرش الويب كحل آمتثل للتطبيقات التي تستخدم الملتيميديا المتحركة أو الاعتماد على 


وربما بعد أن أحست شركة عط0ل۸ المالكة لمحرك ها۴ بالخطر - أو ريبما في سياق 
تطويرها لمحركهاء من يدري ! - بدأت تحركها في التطوير السريع لمحرك فلاش الذي لم 
يشهد تغييرات جذرية منذ اشترت شركة عط0٥0ل۸‏ حقوقه من شركة هأك۳"۴€ “3٤0۲0‏ . فأصبح 
لشركة ۸٥٥٤‏ الآن ثلاث محرڪات تعتمد على Act ٥٣ S٤٣١1‏ » أولها وأشهرها هو 1٤ھا٣‏ ومن 
ثم تقتة ×۴6 و أخبرا تة :6ااف A6‏ فنما دخلة قركة ١نا‏ غل .خط اتمتافسة من دن 
منتجها أمااء؟ ×۷a۴هل‏ وهذا بالتأكيد سينصب في مصلحتنا في النهاية » وربما تكون النقطة 
يتميز ال ا١عااا‏ ۷ا5 عن باقي محركات الفلاش بدعمه لتشغيل فيديو عالي الدقة 0عل¡۷ 10 


والتي على حد علمي لم تحاول شركة منهم دخول هذا المجال بعد - على حسب معلوماتي - . 


ا 


الباب التالت الحديد وع ال 2008 اعم. 


لتتعرف عن المزيد عن هذه التقنية برجاء زيارة موقع أ۸ عااverاSi‏ : 
رابط ھے 

http://www. microsoft.com/silverlight/default_ ns.aspx 
بداية قم بتحميل ا١عاااع۷آا5 من الرابط الموضوع أ۸عااام۷اأS أ6 لتبدأ بعدها بتجربة امكانيات‎ 


. Silverlight تIردقو‎ 


قم بتحميل البرنامج وعمل ٥1ا56‏ له » ومن ثم قم بتجربة الموقع مرة آخرى »› واستمتع بإمكانيات 
ightاverاSi‏ ... و ¥حظ الفرق . 


جرب المواقع التالية والتى تعتمد ايضا على تقنية ا۸عااامvاS‏ : 


صورة الموقع 


http://silverlight.net/samples/1.0/Page-Turn/default. html 


http://www.yeejie.com/silverlight_ magazine/ 


الجدول 3. 1. بعض المواقع التي تعتمد على تقنية ال أعاااveاSi.‏ 
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اللاب الثالتث الجديد مع ال 2008 اع.¬. 


11×N@ تقنیةۂ‎ .2 


تقنية جديدة من مايكروسوفت فى مجال قواعد البيانات » حيث تتيح لك هذه التقنية 
تحويل الاستعلام إلى جزء من لغة البرمجة بما يتيح لك التعامل مع الجداول والحقول والكائنات 
بيصورة مباشرة من خلال لخة البرمحة . 


كمتال سريع يمكن افتراض جملة الاستعلام هذه: 


SQL 2 


Select companyname from customers 


يتم تنفيذها باستخدام آي طريقة ... ليس هذا ما يعنينا » ولكن تجد ناتج الاستعلام فى 
RS.Fields ("FieldName " )‏ مثلا حسب طربقة القراءة » حيث تستطيع قراءتها » لعمل استعلام آخر 
يمكنك القراءة من جديد » يمكنك عمل 000| عاديه للقراءة ومن ثم البحث في الكائن بالطريقة 
العادية: 


VB.NET 


Do While (RS.Read() ) 
Console.WriteLlLine (Rs.Flelds ("CompanyName ™) ) 
LOUD 


Console.WritelLine( Rs.Flelds ("CompanyName") ); 


ِ 
while (Rs.Read()); 


كان هذا هو الاختيار المتاح لك للتعامل مع قواعد البيانات › أما الآن فقواعد البيانات يتم 
التعامل معھا على Members lq Classes Ja‏ و Operators Lg g Functions, Methods‏ خlاصã‏ 


بها » لنفترض هذا الآأمر من داخل ال ا0€. مباشرة. 
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اللاب الثالتث الجديد مع ال 2008 أع¬. 


VB.NET 


Dim queryResults = From cust In customers _ 
Select cust.CompanyName 


Cf 


var queryResults = from cust in customers 
select cust.CompanyName; 


والآن أصبح بإمكانك التعامل مع sا1u1ا۷ReSاeعاÈJ‏ كفتة مباشرة لها خصائصها 


و حقو لها التى آصبح بامكانك قراءتها مباشرة » سنتعرف فى باب احق عن هذه التقنية بالتفصيل . 
WPF aia .3‏ 


واحدة من التقنيات الجديدة التي شهد ١۴×‏ ظهورها إلى النور وهي اختصار ل 
Windows Presentation Foundation‏ تعتمد على تقنية أخرى هي ا۸۷N×‏ وهي لغة تستخدم 
لوصف الواجهات ثنائية أو حتى ثلاثية الأآبعاد» أثناء عملك على ۷۲۴ من خلال2008 أع". يتم 
توليد كود ۸1× بصورة فورية »فيما يظل بإمكانك ايضاً الكتابة ب )۸۷× إن أردت . يتم الفصل 


الكامل بين ال ۸۷× والكود العادي كما كان يحدث في صفحات الويب . 
لواذا استخدام WP‏ ۽ 


الفصل الكامل بين لغة البرمجة وبين التصميم باستخدام )۸۷× قادنا إلى ظهور حزمة من 
برامج التصميم المتخصصة التي تولد ڪود ۸۷× . تخيل نفسڪ تصمم برنامجڪ على 
فوتوشوب » أو على فلاش وتكتب الكود في أ06. » أليس هذا سيمنحك مزيداً من التحكم وقوة 
التصميم التي لم تكن لتتاح لك لو كنت أكملت التصميم على 0أ 51u‏ أaوuاءأ۷ا‏ المصمم أصلا 
لخدمة الكود وليس التصميم › ايضاً ستجد مجموعة من الحزم الجاهزة التي ستساعدك على تجميل 


وتحسين مظهر البرنامج. 


قبل النهايةء إذا كنت متابعا معنا فأنت بالتأكيد قمت بتحميل2008 ا€١.‏ أو على الأقل 


»net Framework 3.5.‏ لذا فأنت مؤهل للاطلاع على هذه الأمثلة. وشاهد الفرق بينها وبين 
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الباب القالت الجديد وع ال 2008 اع"¬. 
الواجهات التقليدية » ربما لا تحتاج إلى تحميل البرنامج فقط اطلع على الفيديوهات الموجودة أو 


نماذج الصور » وكلي ثقة انك ستغير مفهومڪك حول جمال الواجهات إلى الأبد 


صورة الموقع 
http://blogs.msdn.com/tims/archive/2007/02/02/great- ET‏ 
wpf-applications-6-fnac-com.aspX —‏ 


http://blogs.msdn.com/tims/archive/2007/03/05/great- E 
wpf-applications-12-roxilo-central.aspX 


Yelcormve toa Roxio Central 


http://blogs.msdn.com/tims/ archive/2007/02/09/great- 
wpf-applications-8-notescraps.aspX 
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الجدول 3. 2. بعض الفيديوهات لتقنية ال .N۲۴‏ 


الباب التالت الجديد وع ال 2008 اعم. 


Expression #Aعggجg‎ .4 


لنعد إلى الوراء قلیلا في عمليه التصميم » حيث يفقوم المصمم برسم الواجهه على 
الفوتوشوب أو الفلاش أو غيره من برامج التصميم › يتم لاحقا تقطيع الصور ووضعها في 
الصفحة» أو برمجة بعض الأوامر والحركات من خلال ها٣‏ ومن ثم نقلها لموقعك أو 


لبرنامحك ... و هكذا » تحد فصلاد ناما فن عملية التصميم و باليرمحهة. 


أما الآن ومع ستودیو ۴£×۲855۱0۸ كاستديو اعلنت مايكروسوفت عن تطويره لاحتياجات مصممي 
التطبيقات » حيث آصبح الآن بامکكانڪك استخدام برنامج تصميم من انتاج مایکروسوفت يقوم بإنتاج 
كود ۸۷× يمكنك استخدامه فى تطبيقاتك مباشرة .» كما يمكتنك البرمجة من 


li Expression Blend Jڻlخ‎ 


یصدر 15S ٤×م ۲٤510۸‏ مع أربع تطبيقات رئيسية » 8|6١۵‏ لتطوير الملتيميديا والصور والمؤثرات 
الحركية - شديد الشبه ببرنامج فلاش - » التطبيق الثاني هو 06518١‏ وهو موجه بالأساس لخدمة 
تطبيقات الويندوز - شديد الشبه بفوتوشوب - » الثالث هو لأآجل ال N۴8‏ حيث أصبح تصميم مواقع 
الإنترنت بمستوى عالي ا > وهو التطور ل Microsoft ۴r ٣۲°2٤‏ و لکن بإمکانیات EEE‏ 
من اجل دعم ×۸لA‏ و ا۸۷N×‏ الأآخير مخصص للتعامل مع الميديا والفيديو وخلافه باسم 


„ Expression Media 


التطبيق الأكثر شهرة بينهم هو 8|6١۵‏ حيث أصبح تحويل موقعڪ أو برنامجڪ إلى موقع غني 
بالحركة وبالمؤثرات وخلافه امرا فى غاية السهولة » هذه هى الشاشة الرئيسية للبرتامج: 
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EE MH 


أ 
E7‏ 
k‏ 
¥ 


1 


٭ Ee‏ ا ل 


F Lammgeran Fran 


عدن ت ت د رک _ A e | e ee‏ 


الصورة 3. 1. استدıو Expression Blend Jı‏ 
يمكنك تحميل نسخة تجريبية لمدة 21 يوم من موقع مايكروسوفت الرسمي - أو من موقع 
التقنية - حيث قامت مايكروسوفت بشراء التقنية من إحدى الشركات ال ۲3۲١6۲١١‏ لمايكروسوفت 


كما سنتعرف على هذه التقنية بصورة مفصلة ضمن دروس لاحقة فى هذا الكتاب. 
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WCF aغuiaتû‎ .5 


هي إحدى تقنيات مايكروسوفت الجديدة التي تخدم البرامج التي تعمل في وضع اتصال › 
سواء على الشبكات أو برامج متثل الماسنجر وخدمات البريد الالكتروني وخلافه ... باختصار آي 
برنامج يتم فيه ربط جهازين ببعضهما فهذه التقنية موجهة لهذا الغرض. 
بعد )ءك”الW‏ في فيجوال بيسك 6 وفئة كأع)عمك مع ا€". » جاءت لنا مايكروسوفت بتقنية 
جديدة من اجل عمليات الاتصال تحت اسم W٣٣۴‏ وهي اختصار Windows CommunicatiO0¬n J‏ 


. Foundation 


أما لماذا هذه التقنية » فباختصار لأنك ستستطيع عمل تطبيق عميل وخادم Server A^1d‏ 
اienا)‏ آمن ومتكامل من خلال اقل من عشرة اسطر فقط من الكود!!! 
كما أنها أسرع من التقنيات السابقة» في درسنا المفقصل عن “۷€ سوف نتطرق للمقارنات بينها 


وبين باقي التقنيات. 


Code Refactoring .6© 


إحدى المميزات الجديدة التي جاء بها ال |0٣‏ الخاص بالفيجوال ستوديو › الفكرة باختصار 
هي مجموعة من الوسائل المساعدة على تنظيم الكود وتسهيل التعامل معه. 
في العادة يتم توفير مثل هذه البرامج على شكل برامج مساعدة» ومع 2008 أ1€.أصبح واحد منها 
مضمن بصورة افتراضية » تمكنك هذه الإضافة من إنشاء خصائص لمتغير بضغطة زر › لدمج 
المتخيرات في فتثات › التعديل والتغخيير في الفتات والبارميترات وخلافه كل هذا بواجهة مرتية. 
ايضاً هناك برامج أخرى مثل هذا البرنامح لأجل فيجوالJ‏ بıس>ۍك Refactor! for Visual‏ 


8 €|62. البرنامج موجود على هذا الرابط: 


رابط گي 
http://msdn.microsoft.com/en-us/vbasic/bb693327.aspx‏ 
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و هذه صورة ليعض التعديلات التى يضيفها على نافذة كتابة الكود: 


Farmi-wb | Fcomi.b [Dedgn] ; Start Fags 


e 
“1; Formi wa RuhdThreseT woumbets | 
ا‎ 
: ا‎ 
FEiFaEê Sib AiThêézê TaoNiîmëbEêra [ETVal ã l5 IntêégGerf, BTVal b Aa TitéGêr, FEET JddAilEianhn AS IEEE] 
2 = 4 ظ‎ ٣ ۰ 
e es Heardar Pararmelars 
Erd Sib aE 
ا‎ 
Private 3ib Biectoni Clicek(BYVal mender Aa System.Object, BYVAL & J efi Move fhe parameter lef 
Dim EG ls Integer Hiqhi Tovê fê ig an ê riglıi 
AAATheEE Teorbera (1, ã, ©] ab Select ye ext parin 
SBOE ESu. 1 ETE B Lt E on [ = 2 
Fadl 3u Shi Tab welet rE previous pafarnelieî 
Hum Eniar or Enter w# Cormurmit chamges 
: Esc ¥ Cancel changes ا‎ 


Refactor! For Visual Basic 2008 .2 .3 الصورة‎ 


توفر مايكروسوفت ايضا خاصية S١1٥٥‏ ع ٤0d‏ وهى مضمنة بصورة افتراضية فى 2008 »> 
تمكنك هذه الخاصية من إدراج كود كامل لعملية معينة بدون كتابة سطر واحد › يتم ذلڪ 
باختيار المهمة المطلوبية من قائثمة يمكن التحديث فيها واضافة اكواد جديدة » وكالعادة هذا 


البرنامج من اجل فيجوال بيسك وستجد مثيلا له من اجل سي شارب: 


رابط ھے 
http://msdn2.microsoft.com/en-us/vbasic/bb9/73770.aspX‏ 


و هذه صورة للبرنامج: 
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a gga am mm ge a = a = 


2] CreateaTriangleShapeusingsGrsphicsPathOtyectnippet > Swppet Editor 
٣ : \û Feldes gj Smeh | Dj Hew lg] Se = ga port 


سا س ا 


1 اش‎ 
E1 {B] rusî Barc س‎ 
j FE esen | Properties 
EE] taman bêdê paŞêrrî 
1-S) oelerleopmert 
a i] 4 
E -EN ahe 
TEN arate 
E - RFE 
r O pb zar 
i-i Cer 
5 Cera 
]4ا‎ ee قق د‎ et n e 
I] Crmge û Gaiam Fath Firm Fazl aa Hee Graphica Path | j 
13] mate a Fen [Diz palercail}j Aa Poinc " (_ 
— dj Çeke û Seb Erh 
a EET TET 


a DEEL n REE GF 
- [j Cram 3 Fî Epa on a irê | 
lp] Êre a Fad Fetargie on a ire park. RAALA rE [pednrea] 
— [E] Dratr a lirê eî û Virde Fam ۱ 
laj rew a Fe at |Oim auzface as Graphics = FFIETUESBEH? .CeeateGsaphics 
a] er a Rabb Bî Rigi |rirfase,DrauPaet [FFERF, park) 
j remy a Shape mt raderî FÎ 
E] Fr Sed pe 
1a] e Toei ana ede Foam 
I] rae etl Tet a û îrî 
31-G Fama 
1 تة‎ 
Mg FÊ 
E: -Jj Yel Ci 
i JSS 


Code Snippet Editor .3 .3 الصورة‎ 


اخيرا ولیس آخرا اذكر بان هناك اصدارات تعمل على 2005 فليس الامر خاصا ب 2008 فقط > 
ولكنها خاصية اصبحت الآن مضمنة افتراضياً مع 2008 i0لStu‏ اVisua.‏ 
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أ . لفات اJ .net‏ 


لا تعتبر أ6١.‏ لغة واحدة » بل هي عبارة عن معيار قياسي تستخدمه عدة لغات برمجة ... تم 
طرح هذا المعيار من قبل مايكروسوفت حوالي العام 2000 وتبنت العديد من الشركات هذا المعيار 
ليكون قاعدة انطلاقها في لخات البرمجة » حيث تتميز جميع هذه اللخات بإن لها الكود المصدري 
نفسه » وتترجم نفسها مرورا بنفس المراحل ولا تختلف سوى في طريقة الصياغة ... سنقوم 
بالتعرف على المكونات الاساسية لمحرك اللغة ٣٩‏ أع"۴ كاملة .. ولكن قبلا لنتعرف على يحض 


اللغات التى تبنت معيار ا€١.‏ 
فبعد اللغات التى تصدرها مايكروسوفت بنفسها والتى تضم # » أع6.n/. J# .net‏ › اضافة 


إلٿ‫‌CLI/++C ET‏ ... أt.neمriمScل‏ هناك اللغات الآأخرى التى تدعم معيارية ا۸6. مثل باسكال 


و دلفى » ڪو دول و حتى LISP.net‏ لبرمجة تطبيقات الذكاء الإصطناعى. 


لا ننسى ايضا الإصدارات التى تعمل على بيئة ×لا" أا » ف 000" متلا يدعم معيارية ا6١.‏ تحت بيئة 


اللينكس .. لكن فى النهاية فقد كان المنتج الاساسى لخدمة بيئة أ6€١.‏ هو #€ › لتنضم إليه 
لاحقا 8.8€ ربما لاغراض تسويقية وبداً بعدها تتابع اللغات » لا ننسى ان انضمام # للمجموعة 


قد يجعله يوما ما الاسلوب رقم 1 للبرمجة بتقنية أ6١.‏ 


تستطيع في النهاية الاطلاع على مجمل اللغات التى تدعم هذه المعيارية مع بعض التفصيلات عنها 
هنا 


http://www.dotnetlanguages.net/DNL/Resources.aspX 


37 


الباب الرابع 


وقفامیو ینہ ال .,٥1‏ الرئیسیہ 


اضافة 
e e‏ 


Pro C# 2008 .NET 3.5 Platform -Exploring the .NET universe using curly 
brackets 


يطرح الكاتب تساو لا و يجيب عليه» لماذا كل هذا العدد من لخات أ۸€. ما دام سيتحولوا E‏ فی 


النهاية إلى ع٥00٤‏ ك٥ ١3۸6E‏ و يجيب على هذا التساؤل بعدة اسباب : 


- ان العديد من المبرمجين حساسين جدا للغه التي يبرمجون بها ويحبونها » فبعضهم يفضل 
اسلوب الكتابة ب ; والآقواس ... فيما يفضل البيعض الآخر الاسلوب الآأكتر قابلية للقراءة متثل 
5y "8×‏ لغات ٤أئ82‏ أهuاءألا‏ » لا ننسى هنا الدور التسويقي ومحاولة جذب جميع المبرمجين 
للعمل مع أ€١.‏ حيث يمكن لمبرمجي C#‏ ۾ Basic‏ و Fortran g C++‏ و Delphi‏ العمل جمuعا‏ 
تحت منصة واحدة » وهذا ما يجعل انتقالهم بينها اسهل اضافة لتجميع المبرمجين تحت مظلة 


واحدة. 


ا ا کک ا کک کے ا 
مبرمجين يبرمجون بعدة لخات ويتم اخراج منتج واحد في النهاية بعد ان كان من المفضل ان 
يكون المبرمجين لنفس اللغة » هذا يفتح الاختيارات كثيرا امام الشركات في اختيار 
المبرمجين. 


ا ا د ی اا ا ا ا E‏ 
العمليات الرياضية والمعادلات مثل الفورتران › الكوبول مميزة ايضا فى التعاملات المالية 
والعمليات الحسابية ... هكذا تستطيع الاستفادة من هذه المميزات وتدمجها جميعا مع بعضها 


تحت بيئة ال .0€ . 
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2 . العناصر الأساينسية لببئة .اع" 


تقدم €¬. بين طياتها ثلاث عناصر رئيسية تتحكم في دورة حياة البرنامج المعتمد على 


بيئة .۸€ هذه التقنيات التلاث يرمز لها ن .CLR, CTS and CLS :slawÎ‏ 


تمتل Runtime Layer J| CLR JI‏ للبرliامج‏ « و„ اختصار «Common Language RuntImeJ‏ 
مهمته الاساسية هي التحكم في الأنواع والمكونات الرئيسية لل - أ€١.‏ المكتبات والدوال - وحجز 
المتغيرات في الذاكرة وتقسيم الذاكرة والتعامل معها › ال 1١۸۲83١١‏ والتنفين اضافة لبعض 
اختصارات الأآمان "٠‏ باختصار شديد تشكل ال ۴۸ا المرحلة الاساسية لترجمة أوامر أا€. وتنفيذها 


على جهاز الكومبيوتر. 


ال C00 ype System‏ والنذي یتم اختصاره ب ٤5‏ مختص بالتعامل مع انواع البيانات 
المدعومة للعمل ضمن بيئة أ€١.»‏ وكيف يتم التعامل بينهم وبين بعضهم › مع مراعاة وجود بعض 
الانواع غير المدعومة في جميع بيتات أ€١.‏ والتي توجد بها اختلافات بين بيئة وأخرى › أما 
الآخيرة وهي ١ca|0|؟ Common language Speci‏ والتي یتم اختصارها بالرمز 5ا فهي مختصة 


بالتعامل فقط مع انواع البيانات القياسية والمدعومة من جميع اصدارات بيئة ا٥١‏ . . 


وبهذا نستطيع ان نقول ان البرنامج المصمم باستخدام #€ مثلاً ويستخدم فقط الأنواع المتاحة في 
5ا هو متوافق تماما للعمل على نفس توزيعة أ۸€. من اجل العمل على ×ل٣|]‏ المسماه 00۸0 اما 
لو خرجت خارج نطاق ال15 إلى C15‏ فلن تضمن ان يتم تنفيذها بنفس الكفاءة في كل الأنظمة 
المختلفة. 
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Base Class Library JI .3 


توفر تقنية أ€". ما يعرف باسم ۲3۲۷ا ككةا€ عمءة8. وهي عبارة عن مجموعة من الفثات 
حت“ تحتوي على الأوامر والدوال الرئيسية في بيئة. ا6ء هذه الفئات موجود في جميع بيثات 
.أ ويتم التعامل معها ومع خصائصها بنفس الطريقة » و تضم العناصر الاساسية مثل التعامل مع 
الملفات وقواعد البيانات › ال305٤۲"‏ 1ء ال )۷× » ال الات وخلافه. وتساهم هذه المكتبة في جعل 
اسلوب البرمجة موحد وأسهل. وقابل للتكامل مع آي من اللغات التي تدعم أعلا. 


هذا الجدول لبعض محتويات ال ا8 من مايكروسوفت: 


Hae paCE Descriplioiî 


System This namespace includes: all the essential support you need for your programming, Including base types (String, Intî2, DaleTime; 
êoalsan, Ebe. ), exaenîlal environmental siijppûart, anû math funcians, to namê a fein 


SYsbam Cade Dorm ell the 3upporl necessary to be abls to creBbeê coda, afd Fun If, on the FY 


Sy sbarm Collectors The System. Collections namespace contains inteffaces and classes that define vamos. contalnars, such as lists, qleuesg, bif arrays, 
hashtablês anû drîianarlas. 


System Diag oS ÎrEz All tê lazê voi nêêd lo diagrozê our applicatien, lîelu ding êYEeRt logging, perf ormêricê eoüntêrga, traonig, and pfopêzz 
managğeameît API], 


System. aloballzathıarn This ramespace tncludes: miamental süippart far Globalization, used throughout thea rest ûf tha Framework 


Sy Ebê O Iinudes fundarmêrtdl SiFfeami ةuppêrî‎ wê ğöَf bê ušêèd by afyênê, and tên spêzmeally targets tfhê FlêSyetêm ê Filê and 
Dirêetbory manipülation classes), SerialPorts, and Decompression 


System. Resources Lsed to allow. an application ta be translated into multipla languages, and ther display tha appropriats text based lipon the current 
users language selection 


System. Text ThE. narmESpatzê melidEez slıppart for eneodipgz, and Stnnabuilldler 


System. Text.RegülarExpresslarns | This hamespare Inclûdes regular expression sippoart, for robulst parsing and matching ef sting data 


الصورة 4. 1. بعض مکونات ال )ح6 - من MSDN Jı‏ - 


وكترجمة سريعة » يحتوي 5۷56۳ على كل ما تحتاجه لتطوير تطبيقات ا6١.‏ » يحتوي ايضا 
على ال كعم ها0 والدوال الاساسية للعمليات الحسابية .. الخ » باختصار شديد تجد 


أن ٣ا5 5y‏ هي مجال الآسماء الرئيسي والتي تحتوي تحتها على باقي الفئات. 
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مجال الأسماء الو صف 


code Dom‏ .enاys‏ خاصة بكتابة الأكواد وتنفيذها 
.C011ect105‏ ا تحتوي على عدد من الانواع مثل )٣3ا5‏ ,کاءنا. 
SLM MIMICS‏ يضم ProcessJıg Counters Jıg Events J|‏ 


Syste”. Global 1zat10n‏ يتعلق بتشغيل برنامجك على نظم مختلفة من حيث اللغات 


والاعدادات الاقليمية و خلافه. 


10 ."٣عا5ys‏ كل ما يتعلق بعرض واستقبال البيانات سواء عن طريق 
الملفات والمحلدات » او عن طريق منافن الكومبيوتر متل 
Serial PortJı‏ 


Resources Jı system. Resources‏ التیى تصف البرنامج » يتيح لك عمل 
تطبيقات متعددة اللغات على سبيل المثال 
LEM MEL‏ كل ما يتعلق بالتعامل مع النصوص 


Regular Expressions JI zg» Jnlaiall System. Text .RegularE 
xpresslons 


الجدو ل 4. 1. بعض مكونات مجال الأسماء System‏ 


.net Assemblies . 4 


فى النهاية ومهما كانت لغة البرمجة وال ١€أأم"K0۳‏ الذي تستخدمه لبتاء تطبيقات أع۸6.» 
فإن الكود يتحول فى النهاية ل ٤‏ ع2 gu‏ ها عt intermedia‏ وهو ما يعرف اختصارا اا بالاضافة إلى 
بعض ال ه۳630 » ويتم وضعه فى ملف اسمبلى قابل للعمل مباشرة سواء على شكل ع€×€ أو 


على شکل اال 
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سابقا كان يرمز لل اا باسم S|‏ وال NS‏ اختصار لمايكروسوفت › اما الآن فتمت اضافة 


اللاحقة €٤‏ كاختصار ل C0۳07‏ بدلا من NS‏ السابقة. 


يمثل ال اا أو ال اا5 المهام التي يقوم بها البرنامج والأكواد وما شابه › اما ال كأad2اعمص‏ 
فتحتوي على وصف لجميع الأنواع والفئات التي استخدمتها في برنامجك › ملف الاسمبلي نفسه 
الذي يضم ال ا| وال aأةلةام"‏ يتم وصفه ب هأةلةام" أيضا » يتم اضافة ا5٥۴٣"‏ ايضا لهذه 
المجموعة » هناك حالات تجد برنامجك فيها مرتبطا باكثر من ملف اسمبلي » وفي هذه الحالة 
لن يكون لديك سوى أ۳3۸[65 واحد فقط في واحد منها يقوم بعمل البداية وربط الملفات مع 


بعضها البعض. 
CIL JI .5‏ 


لنفترض هذا البرنامج بلغة C#‏ من ڪتاب 2008 Pro CSharp‏ 


0 
using System; 
namespace CalculatorExamp le 
[ 
7 TRLS C15 CONES ChE DGS CNET BON, 
CLR PFEOGEAN 
STaAEICG TOI. Malin) 
Calc c = new Calc(); 
IHL ANS = C.AOQI(LUO, S4); 
CoNnSOl6.WELteLInNnE{(TIVU # B4 16 {OF ", ans); 
// Wait for user to press the Enter key before shutting down. 
Console.ReadLine (); 
} 
ا‎ 
// The C# calculator. 
OLAS Calg 


{ 


PUBIC. ANE ACCOR & IME VY 
{ TELULT KK FV | 


لو قمت بفتح الاسمبلي الناتج عن هذا الكود باستخدام أي تطبيق مناسب متل 0۸5N‏ 1| ستجد الكود 
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Mel HOM GpUDIIC HMIdEbDvVSIG INSLanNCe IIL J2 ACO(INLIL xK,INNlCJl VY) CIL Mmaliagced 
1 
// Code size 9 (0x9) 
-Mmaxslack 2 
Meo lS OG nc Ey) 
1L UUUO: Mob 
ILM OOO TILL 
TL UOUC: IOarG2 
E Ud 
i LIS Ml 
OE E O OT 
E EE COC 
MN SST TL 
NEUSE NOEL CIC DEG 


حتى هذه المرحلة › لم يتم تحويل الكود إلى or m-Specific |nstrucأi|0 ٣5‏ atfاP.‏ يتم ذلڪ في 
المرحلة التالية من خلال ما يعرف باسم ١ال‏ والذي يقوم بترجمة الكود الناتج إلى كود مناسب 
لامكانيات الجهاز ونظام التشغيل الذي يعمل عليه البرنامج. 
بامكانك التعرف على المزيد عن هذا الموضوع من هذا الرابط من مايكروسوفت : 
رابط گے 

http ://msdn.microsoft.com/en-us/library/f7dyO1k1(VS.80).aspx 


MetaData Jl .6 


متال على ۹033ع( التى تستخدم لوصف كل محتويات الكود من دوال وفئات وواجهات وخلافه 


Assembly Metadata 
O OT 


TypDefName: CalculatorExample.Calc (02000003) 
EUaoSs ES Moc EuDLICI lAULOLAOUC] [CIA S| 
lANSIClIaSS| [EcClOrCEICICINITL | COULIOUOOL) 
Extends : 01000001 [TypeRef] System.Object 
Method #1 (06000003) 


MethodName: Add (06000003) 

Elags : TEUCDLIC] IHIIEEYS10| IEFeusecloll (000000686) 

EVA SG OSO 

ImgGlElaGSs : TILL Mani go Ol (O0000000) 

UalliCivnNEhRh: _[UDEEAULTÎ 

Mas lis 

ReturnType: 142 Arguments 

Argument #l1l: I4 

Argument #2: 142 Parameters 

(l1) Paramlokelhn : (0SU00U0U0L) Name : x flags: [\lnone) (00000000) 
(Z2) Partamloken : (USU0U0O02) Name : vy flags: [none|_ (00000000) 
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يقوم الجزء السابق بوصف الكود الذي قمنا بكتابته في آول مثال › يمكنك وانت تعمل على أ€١.‏ ان 
تقوم بالاطلاع على هذا الكود › اغلب النقاط واضحة وتشرح نفسها › اعتقد انه ربما لن تحتاج كوا 


للتعديل اليدوي على هذا الملف. 


Manifest Jl . / 


نسخة واحدة فقط من هذا الملف لكل برنامج حتى لو كان هناك اڪتثر من Assemb|lJŞ‏ 


حاله و جود اكتر من ملف » هذا متال على كود من هذه النوعية: 


Assembly Manifest 


.assembly extern mscorlib 
{ 

BUOLTECREETOORED SS EBLE CD DOGO LTO OA EO SOD 
TE LU 

} 

.aASSeMODLY Calc 

{ 

eo NE CO OE 
VEE OU 

} 

.module Calc.exe 
.1magebase 0x00400000 
.SUBSYSLEM OU000000S 
.fl1le alignment 512 
COOLIO OOOO 


Common Type System .8 


سنركز في هذا الموضوع المختصر على C15‏ حيث سبق وذكرنا انه مختص بوصف الانواع 
المدعومة في بيئة أ€١.‏ وكيفية تعاملها مع بعضها البعض »› هذه الأنواع هي: 


Class - 
Interface - 
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Structure -=- 
Enumeration -= 
Delegate - 


سنتعرف على طريقة تعريف كل منهم في مرحلة مختلفة من الكتاب › إلا ان ما يتعلق بنا الآن 
خلال الدرس الخاص بنا هو كيفية تعامل ال C5‏ معهم › إذا كنت مبرمج تطبيقات عادية فلن 
تحتاج لمعرفة اكثر من فائدة ال C15‏ اما مبرمجو الأآدوات او الذين يقومون ببناء ٣€ا¡أم C0"‏ او 
ره ن دا قط ر آ6ا تبت اخرن اعرف على الخضائص الاساس , كر ا 


مختصرا على ككھا٣‏ 


هناك ما يعرف باسم a55ا Abstract‏ . ال ssھاC Abstract‏ ل يحتوي على اي کود - شديد الشبه 
یال - interface‏ بحيث يمكن بعد ذلك عمل وراثة له قبل البدء فى استخدامه حيث انه لن يحتوي 


على سطر كود واحد › هذا مثال لما يعرة Abstract Class plo‏ 


class abst_class 

ا 
IME SUM COMME &, IBE VI‏ 
string name;‏ 


VB.NET 


L138 aDSE CIS 
Private Function sum (ByVal x As Integer, ByVal y As Integer) As Integer 
ERD FUNCTION 
Private name As String 

ENCA. CLASS 


والآن من ضمن جدول خصائص ال CK15‏ التي ستحتاج إليها فيما لو رغبت في التعامل مع C15‏ في 


الكو مبايلر الخاص بك متلا . ستجد الخاصية the cاass abstract or concre€٤‏ | » ستحتاج قبل 


اخبار C15‏ بان لديك ٣|55‏ هنا ان تخبره ايضا بمثل هذه النقاط. 


ملا حظة 


لا تقلق لو لم تتضح لديڪ متل هله الخصائص » في دروس قادمه سنشر ح بالتفصيل كيفية 


عملككها€ وانواعه وطرقة المختلفة. 
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CTS Members .1 .8 


وقاھیم بینۂہ ال .,٥1‏ الرئیسیہ 


بعد ان قمت بوصف الأنواع المختلفة من خلال 15S‏ » يمكنك اضافة اي عدد من ال €۳€( إلى 


كل منهم » ال N8۳ 6€۲١‏ يمكن ان تكون متغيرات عادية لحقول كل| ۴|6 » يمكن ان تكون ايضا : 


constructor, finalizer, static constructor, nested type, operator, method, property, 


indexer, field, read-only field, constant, event 


كل واحد من هذه الأعضاء لديه ما يعرف باسم (أأة٣†‏ i†۷اأطأكأ۷)‏ أو مدى رؤية » يمكن ان يكون 


>ااطلا۴ متلا بحيث يمكن رؤيته من خارج الفئة ككةا) .. الخ مما سنتعرف عليه لاحقا ضمن 


دروسنا » ما يعنينا هنا ان نعرف ان كل هذه الخصائص يتم توصيفها فى .٥١5‏ 


CTS Data Types .2 .8 


يحتوي ال C15‏ ضا على ال ك€ 0331۷ المدعومة من قبل أ€١.‏ » هذا الجدول من كتاب #€ ۴۲0 


8 مع توضيح لل كك١K۷W0۲‏ للغات ا€.١.‏ الاساسية الثلاث: 


C++6LI Keyword 
ri slgnêd thal 
sigğnêd chat 
hort 

init or lotê 

_ into 

unsigned shorî 
unsigned int or unsigned long 
unsigned _ _intba 
Float 

Doub lê 

Object” 

wEhaf_T 

String” 

bec imal 

Bool 


LH Keyword 


DYTtê 
$DYEE 
:ROTÎ 
ifît 
long 
uShoTt 
uinî 
long 
Float 
doublê 
al ject 
char 
StTINg 
dec imal 
bool 


Table 1-2, Thre Intrinsic CTS Data Types 


LTS Data Type 


VB .NET Keyword 
Byte 
SByYTtê 
Short 
Integer 
Long 
WShort 
WIintefat 
WLONE 
Single 
Doublê 
Object 
Chal 
String 
Dec imal 


Boolean 


+ ByYtÊ 

. SByYTê 
„ Irit1b 
.Intي2‎ 
, İintbg 
.UInt16 
.UInt2 
:UInNtÖA 
. Sinêle 
: Doub Lê 
„Object 
„A1 

, StTINE 


SYS TEN 
3Y5 terî 
sys TEN 
Sy eM 
3Y5 LEM 
35 LEM 
Sy LEN 
SYS Lê 
Sys tem 
SYSTEM 
Sys LEM 
Sy TÊN 
3y SLE 


Sys tem. Decimal 
System, Boolean 
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كل ما يهمك كمبرمج تطبيقات عادي ان تعرف لمعلوماتك فائدة ال 5آ كنوع من المعرفة 
العامة لبتية ا€١.‏ الاساسية » آما إذا كنت قد اعجبتك الفكرة وترغب فى التعرف على المزيد عن 


5 فيیمكتنك البدء من هذا الرابط: 


رابط ھے 
http://msdn2.microsoft.com/en-us/lbrary/zcxl1eble.aspx‏ 


Common Language Specification ,9 


كما ذكرنا فى الموجز السابق › ال كا٣‏ هى أعكطلاكء من ال CS‏ تصف الحد الآدنى من 
المتطلبات اللازمة لنستطيع القول ان هذه اللغة تعمل تحت بيئة أ€١.‏ » وبمعنى آخر › فإن بعض 
محتويات KS‏ اختيارية حيث يمكن ان تجدها فى يعض لغات أ€. ولا تجدها فى الآخر » مجموعة 


من محتويات C5‏ تم تجميعها فى 5ا لتكون اجبارية لكل لغة تستخدم بيئة ا6١.‏ للتطوير. 


ويتم اطلاق مصطالح CLS Rules‏ على هذه الشروط الاجبارية ›» ويتم توصيفها ولا بد من تطبيقها 
لكل لغة تستخدم بيتة أ٥.۸.‏ للتطودر. 


بالنسبة للغات #) و أ۷8.۸€ . هناك مجموعة كبيرة من الخصائص التي »ا يضمها ال 5ا 
بامكانك معرفة اذا كان الكود الذي تستخدمه موجود ضمن الK|5‏ ام لا لمراعاة عملها على جميع 
أنظمة التشغيل من خلال اضافة الكود التالي أعلى الجزء الذي تود ألا يحتوي سوى على أوامر من 
CLS‏ : 


Cf 


[aASSemMblLY:. SYSTEM. CLSComMpLILant (CEU) |] 


VB.NET 


<Assembly: System.CLSCompliant (True) >‏ 
إذا كنت مهتما بمو ضوع ال كا٣‏ يمكنك مواصلة القراءة من هنا: 


رابط گے 
http://msdn.microsoft.com/en-us/library/12a7a7h3.aspx‏ 
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Common Language RunTime .10 


ڪما ذڪر نا E‏ > فإن ال ۴۸ا تضم كافة المعلومات المطلوبة ليعمل كود ال أ€.. 
الخاص بك على الجهاز بغض النظر عن اللغة التي تمت بها كتابة الكود الأصلي» ولتقريب المتال» 
إذا كنت مبرمج فيجوال بيسك فإنك مضطر لوجود أاك.۷(۷۳"60١"۳‏ على الجهاز ليعمل 
بر نامجڪ المصمم بالفيجوال بيسڪ وبالآدوات الرئيسيه › اما لو ڪنت مبرمج جاها فإانڪ تحتاج 
إلى J۷۷‏ على الجهاز الذي سيعمل عليه تطبيقك ... وبنفس الطريقة › فإن ال ۴أ هو الملف 
الو حيد الذي تحتاجه ليعمل تطبيقك المصمم تحت بيئة أ۸€. على اي جهاز ڪومبيوتر. 
ففي عالم ال أ€١.‏ تحتاج لوجود مكتبة ال )€ المسماo Microsoft HJ |رlھصتخ mscoree.dll‏ 
»c0mmon Object Runtime Execution Engine‏ مع بدء برنامجك ومع بداية اشارة ملف 
الاسمبلى إلى هذه المكتبة يقوم ال ۴ا بعمل 103١0‏ لملف الاسمبلى وقراءة ال 3أ0€†303/» يعمل 
L0۵4‏ ايضا لل 1۷٥€‏ في الذأكرة الحبة واخيرا يقوم بترجمة اوامر البرنامج الموجودة في اا 
إٿى ۸5 orm specific instructi0‏ atfام‏ كما اتفقنا سابقاً ليمكنه التنفين على جهازك ... اخيرا يبدء 
اال ۴ا بتنفين برنامجك › وخلال عمل البرنامج سيقوم ال ۸| بالتعامل مع الفثات الاساسية لل 
أ€". الموجودة في ها 55€ ٳذا ڪنت تستخدمها في برنامجڪ. 
هذا المخطط من ويكبديا يوضح مراحل كتابة الكود حتى تحويله إلى ۸3(1۷۵٥‏ كود ومن ثم 


تتفضدكهد: 


ee 


SoOurCe code Bytecocdla Native code 


L# compiler 
C# 
YB.NET compiler LLR 
VB.NET MSIL code yy Native code 


Other compiler 


compile tirne Runtirme 


68 


الباب الرابع وفاھیم بینہ ال .٣٥٤‏ الرئیسیہ 


الصورة 4. 2. مراحل ترجمة الكود إلى ۸3۷€ كود مفهوم من اللة. 
و كالعادة» إذا كنت ترغب فى معرفة المزيد يمكتنك اليدء من هنا 


رابط گے 


http://msdn2.microsoft.com/en-us/library/Sbs2ecf4(VS.71).as 


Object Browser JI pIaèخüwl‎ .11 


من قائمة W‏ |۷ اختر ۲ع٥كستاةB‏ اctعزط0‏ .» ستظهر لك الشاشة التالية: 


Dec Bereaeer - kirrin Yraral Sixrlea 


Fie Edt Vip Oat Too Te _Anakze inde ‘Help 


BR“ E ALA SL | ف‎ rE e 


| leri rear Skat Pige | 3F ahim uplorae = 4 
Breage All Cêrnpa rer >. | TEE 
8 a ath - 5 BA erte kL odePom tk o fei rm uted qıameera 

[ Stereo Adi Range yem odeDom Lad eA baleAmg uman] ]| 


Ad Rang Sg Hem ode Dorn. o eAîEN lue irg urn ent oli prio] 
ed air bia riman Coll eri] 
Cad alttrbiataA igure alert Rem odên. E ed eAttlatêA rjumenkl J| 
ji Cdk dirtemêt CodedtirbefeêingjurmentLcllectionlSy tenu odelomt od eûttribaîeêrgumenEkollerti of] 
e 1 1 8 ٤ .ت‎ : 
U he Cii ara Sa tiiank eatin Syd Codec. Ee aA biteÃrg ume riê] 
n ۲ a CagyT of het, edgligrn, وا نداس خت سط تخ‎ j 
» j CodêéãRnbutehrgumeenî 
6 OEP EEN ê lhrerifert, Syrie oclilhotms Codzlttiilxotehega nerd) 
1 . a 9 Remove Sytem. CedePo ruta derb uêkÃy qumrî 
jı #ğ CodeatnibukeDeclat tian a illet) 
د‎ 4 fede SE nibuleerletaligrrkellprEiB 
0 f CodeBaisRelttencifiprêitigrî 
hı. &f Codefliriae, LperatctErprettmn 
ı Ê CodeBinarg Oper oiT yp 
ıı f Code anlEaprmsiaa 
4, AF Cadel hila 
|i. f CodeCbiehE luge Metînî 
ıı. êz CodeCheckamfrmgrma 
1ı êş Codeomment 
1 r CedeormimeitRMermenl 
4 a Code armmen Ester gHettren 
ıı FF CodeCompielinit 


1 #g CodélrgumentReêlererttErpeessinr 
i j Codeaney Trem eEspresicn 
1ı j CedeanamladeseEipegsian 


MEO & @ @ © 


ıı @; ode oarlrlrenStakernant 
0 A; Cadet oeHPusiet 


pubic inî Index Fi, ١ 1 5 1‏ ر 
i *; Code aul Value Eaprêzaon‏ 
TadeDelegaiel resisEqprersiin hember ol rE eda a KodtAtritaArgumeriCallmctian‏ ب 
ع E. Az CedsDelegafelaeikeEspreggien E‏ 
1-E CadéDineen Began : 2 ru ۱ :‏ 

GEG E MBER. AN mE FECES HEFL OED o TeAttTiitE Argel oBjEtT In TBE 


e f - 
i ty Cotielinectrye phiBerii of FE tRîetg In fe calle. 
j r CodeirectveCollertinn 


1 5 Cade Entry eaiiielîrad Parameter 
| . HL Kedelienfeeentefmnmilen 1 hae Tha Safe Cain hemt ênda dti taê rnıımên nhiartt tA lara im tha tlaiîn.______ 


س س 


: ج — - ص‎ my Pg Te چ د ت‎ : 
U PIAS.. ا‎ FOE | Fae PICS. ADE O rt FT Ohie; چ‎ FIT PH 


الصورة 4. 3. ال 8]0WS€۲‏ ءز0 في الفجوال ستوديو 
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من خلال هذه الأآداة المتوفرة مع اصدارات 10ل ل51 أةلاءأ۷ المختلفة » تستطيع استعراض كافة 
المكتبات والفئات الرئيسية فى. أ€١»‏ وتستطيع ان تعرف مكانه وملفات الاسمبلى التي يتبعها › 


لمزيد من المعلومات عن اي منها يمكنك اللجوء إلى مكتبات "50١‏ سواء الموجودة في قائمة 


٥۴ء‏ او الموجودة على الانترنت مباشرة في موقع .M50١N‏ 


Name Spaces cءlauill‎ ٽlJlag‎ .12Z 


من خلال الدروس السابقة » تستطيع ان تلاحظ أن ۳عأك۷؟ هي ال ١۳٥503٤٥‏ الرئيسية 


التى تحد تشتق منها أغلب ال ك€٥٤53‏ ۸37€ الأخرى. 


هناك Nae S٥3٤٤‏ آخر باسم ا os0آاMic‏ تجد تحتها العديد من الفثات مثل 
Microsoft .ManagementCconsole‏ وجميع الفئات المشتقة من فثة أ؟0كئمMic‏ هي 


خاصة فقط بالتعامل مع خدمات مايكروسوفت ولذا فهى لا تعمل تحت ال ۳0۸0 مثلا. 


لاحقاء سيكون من الواضح ان تفسر ال 5٥3٤٥8‏ ۸8۳€ التالي : 
Ormsْem.WNindoNS.Fاsرy‏ انها تحتوي على المهام الرئيسية التي تحتاجها لبناء .۳0۲۳١65‏ 


12. 1. استیراد وجالات الأسهاء 


يمكنك استيراد مجال الاسماء اعلى ملف الكود الخاص بك بالشكل التالي 


Cf 


UIT SVSLCOM.DaEa:. SOLCLLERNEÎ, 


VB.NET 
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CH 


SIELONNEC TOD SGLL 32 REE SOL CSNNEECELIORN O, 


VB.NET 


Dim sqll1l As SqlConnection = New SqlConnection ()‏ 
فى المقابل › لو لم تقم بتعريفه فى مجال الاسماء » ففى هذه الحالة انت مضطر لدخوله بالترتيب 


في ڪل مرة تستخدمه فيها: 


SYSTEM Dalla. SGLCLIENT,. SOLCoNRNECGLILONn SOLA 


SCYSEEMLALASOLCLTERNEOOLLORNECELOR O, 


VB.NET 


Dim sqll1l As System.Data.SqlClient.SqlConnection = New 


ضمن البرامج الملحقة مع أهuء۷‏ الافاد 
S۷010 8‏ تجد في الغالب برنامج 
|| » يمكنك هذا البرنامج من الاطلاع 
على الاسمبلي الخاص بأي برنامج قمت 
عله بامتنداد آ6 » ایکا متك من 
رؤية ال اأ الخاص بهذا البرنامج ... هذه 


صورة من البرنامج : 
الصورة 4. 4. برنامج ال ١5۳هل|اً‏ 


و يمكنٽنڪ تحميل نسخه من البرنامج 
و معرفة المزيد عنه من هنا : 


System.Data.SqLlIClient.SqlConnectionn () 


#F HelloWorld.exe - IL DAS™M 
Eile Wie Help 


A-A F HelloWYorld, exe 
<F MANIFEST 
`. Hella world 
a. HeloYorld. fly 
E--E Helloworld.Form1 
i i F class public auto ansi beforefieldinit 
i FF extends [System Windows ,Forms]System, Windows, Forrns, Farr 
tt _ EMCLiSk : private static class [mscorlib]5¥stern. Collections, ûrrayList 
n AF components : private class [System ]5y¥stern.CaornponentMadel, IZontainer 
„cckor : Yoidij 
: Wl .ctor : void 
Wl Dispose : Yoidtbaal 
Wl Form1_Load : ¥oidiobject, class [mscorlib]5¥stern, EventArgs) 
| _ PHoikializetomponent : Yoidij 
WW _ ENCHiddenRefresh : Yoidtj 
6 __EMNCIkterate : oid) 


< _ EMCUpHateHandlers +: void) 
Eh“ E HellaWorld.MySettings 
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رابط ھے 
http://msdn.microsoft.com/en-us/library/aa/30858.aspX‏ 


14. هل تبحû Open Source .net j£‏ ڊ 


http://www.mono-project.com 
هو اشهر ال کا٤م(ه٣٣ التي تتیح لل اا العمل على توزيعات لينوڪس‎ Mon0 مroزeCi او‎ 
المختلفة.‎ 


هناك مشرو ع آخر باسم Portable.NET‏ يیمکن CIL‏ من العمل على متصات مختلفهة. 
تجد رابطاً للمشروع الثاني هنا : 


http://www.dotgnu.org 


فى أجزاء قادمة من الكتاب ستنتعرف يصورة تفصيلية أڪكتثر عن .“/٥N0٥‏ 
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الواجحهة الأساسية 
للفيجوال ستوديو 


الباب الخايس الواجهہ الاساسیۂہ للفبجوال ستوديو 


1. كيف أكتب الكود؟ 


الإجابة التقليدية على السؤال السابق هي من خلال 2008 0أل Su‏ أجuء۷i»‏ إلا أن هذه الاجابة ليست 
اة تاها > فالإجابة الصحيحة هي انه ومن خلال وجود فaتط.‏ 3.5 net framewrok‏ 
Development Kit‏ على أي جھهاز فانک ستکون قادرا على تطوير تطبيقات .2008 ۱€ » سنتعرف 
في هذا الدرس على عجالة على بعض هذه الطرق قبل ان ننتقل للحديث حول الطريقة الاساسية 


التي سنتعامل معها من خلال 2008 Visual Studio‏ 


مبدئيا يمكتنك تحميلها من هذا الرابط 


© E aw 


http://msdn2.microsoft.com/en-us/library/zcxleble.aspX 


Visual Studio 2008 Command Prompt pڻIaèتwl‎ „1 .1 


لو افترضنا اننا سنقوم ببرمجة #€ » يمكنك من خلاله كتابة الأمر ?- عc٤كع‏ الإطلاع 
على الأوامر المطلوبة» ستكون هذه الآأوامر كافية لتستطيع البدء بترجمة كود 6# لکن ستتضطر 
لعمل كل شيء يدوياء ستحتاج لتحديد المخارج والاسمبلي والملفات .... الخ › في المقابل 
ستستفيد من ميزة ڪونذك تقوم بعمل كل شيء يدويا وهو ما يتيح لك فرصة ذهبية للتحكم في 


كل ما يتعلق بالبرنامج من الألف إلى الياء. 
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E #isual Studio 2E Command Prompt 
setting env ironnent for using Hicrosoft Wisual Studion 2ARAB x8b tools. 


r xPFrogram FlilesxMAicrosoft Visual Studio FI™MLAESCG —? 
HicFosoFft <R? Uisual CH 2AABE Conpiler version 3.5.21822. 
for MHicFosoft <R? HEI Framework version 3.5 

Copyright ¢C? Microsoft Corporation. All Fights PeserPved . 


Misual CH 2BHBHE Lompiler Options 


= OUTPUT FILES = 

out f ile? apecify output FIle name tdef au lt: hase name of 
Filëé 1th maãûiî class ûr F1IrFst File? 

#tAaAFGEE SENE Bulld a console executable tdefault? tShort form? 

#E SENE” 

HulLld a Windûo#is Executable {S$ hart FoF: 

#t WInExe j” 

BulLld a library {Short forn: #t:library? 


7EAFGEE SWINEXE 


target : library 


Build a module that can be added to anotheF 
assenbly ¢Short Farn: #tE:modu le? 

De lay-s1iğn thê assenbþly iüûsifîğ ûnljy thê piibliê 
portion of the stPong name ke j 

AHL Docunentat ion File to generate 

spEeECIfY a strong mane key file 

Spec iFY a stFonNng mame key container 

Limit which platfarns this code can Pun on: xBb, 


Ft aAFGEE 5 mio dı le 
^lê laijs 3î [Û * 1= J] 


dac :%F 1le? 
keyf ile :<F i1le? 


ke ycontaliner:4stEFINg# 


platforn:<string? 


Itanium, xb, or anYycpu. Ihe default i3 anYC pu. 
INFUT FILES 


Studio 00s > -2008‏ اVisua‏ فی قائمة البرامج) 
بأبسط صورة » يمكتنك عمل عءاأم"۳ K0‏ لاي ملف ك٤‏ ترغب به بالشكل التالى : 


Command Prompt 


CSC EFilé CS 


Command Prompt 


CC lt LCT IS ENN CC 


Command Prompt 


csc /out:My.exe File.cs 


اخيرا تعمل عءاأم CK0۳"‏ لعدة ملفات موجودة فى مجلد واحد : 
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Command Prompt | ڪو د‎ 


csc /define:DEBUG /optimize /out:File2.exe *.cs 


يمكنك معرهفة المزيد ابتداء من هذا الرابيط من مايكروسوفت: 


http://msdn2.microsoft.com/ en-us/library/ 78f4aasd(VS.80).aspX 


exta d استخدام ال‎ .2 .1 


برنامج قابل لاعادة التهيئة» بمعنى انه قابل للعمل على اي شىء وقابل للتخصيص ليعمل كآي 
شى»ء» نسخة مطورة من ال N0630‏ قابله للتطوير والتعديل » يمكنك استخدامها كاداة تحرير 
لاي لغة برمجة‌او صفحات ويب اوا۷ 11 او حتی اسمبلی ... یمکنڪ استخدامها لتريب اوراقڪ 


... لآي شيء ما دمت تستطيع تعديل الخصائص المطلوبة. 
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ر ت 


xfpad.comîproductsitextoad features. html 


File Edit Search View lools Macros  Lonfigüre Window Help 


1H ASRE BBS E f 0¢ e HR i | ê aî 6 2 


Explore 
Cpt orer 


TD Ea 
د‎ 


EF jll Computer 8 ا‎ HTHL PUBLIC "Z777 DTD ETHEL 4 
۰ 5-& Local Disk (C:] «HITHL 


jg DVD RW Drive (PJ +HFAD: 


2 Network 4+META http-equiv="Lontent—Type" conten 
=1 Entire Network +TITLE:TeztFad Featuress#TITLE : 
ج‎ E r <HETA name=DESCRIPTION content= "TeztPa 
lk” Microsoft Wind +4HETa name=KEYYORDS content ="textpad. 
i چ‎ vrcrasoft Terrni 5 4METé Hhttp-equlir="Lontent—Styrle-Trpe" | 


iF HE‏ اک ا مف E‏ ا 


4SLRIFT type="tegt/ javascript" languagı‏ ۲ ا أ 
C@ Brplo. ..| ê Docu... 2 Clip i Ni ۴‏ | 


Search Results 1 


support xf aq™retoo ls. htmlrB j}: +4 MET name=EEYTWRDS content=" reqular E¥#I #4 
SUPPOTE™tEI1PS™borlandtip.html{B): ¢META nane=EEYWURDS content=" TeztPar 
support ™t1ips™indez. html B8}: ¢METa nane=EEYYORDS content=" TexztPad, suf 

Found 4F oecurrencels} in 4F fileils=] 3 


jla4| 11 


Eq: search Results | E Tool Outpüt 


.TextPad Jı الصورة 5. 2. برنامج‎ 


واحدة من ضمن خصائص ال ۲٥×۴۵‏ انك تستطيع اضافة ملف لتعريف لغة #€ او V6.٥‏ 
عليه» بعد اضافة الملف ستجده يقوم بتلوين الآأكواد كما فى 0اك لا؟ أهuاءأ۷ا.‏ يمكنك اضافة 
امر Compile‏ حيث تحد نسخه من ال R۴‏ المستخدمه للغة ال €C#‏ ... الخ > لمعرفة المزيد حول 


هدا الموضوع يمكنك تتبع الرابط التالى والانطلاق منه 


رابط ھے 
http://www.eggheadcafe.com/community/aspnet/2/10014016/textpad-and-c.aspX‏ 
كما تستطيع ان تجد ملفات كل لغات البرمجة او الوصف لتركيبها على ال 16×30 هنا 


رابط گي 


http://www.textpad.com/add-ons/cliplibs. html 
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بامكانك التعديل فى لغة البرمحة نفسها إن اردت عن طريق تغيير ۱لr/esSS|0۸5 »Reguler Exp‏ لو 


قمت بوضع قوانين للغة البرمجة خاصتك فباستطاعتك تنفيذها على ال 16×3d‏ ايضا. 


Notepad++ JI ٿIخüwl‎ .3 .1 


تطبيق مماثل › إلا انه مجاني بالكامل › يتيح لك بعض الخصائص التي ريبما ا تتوفر 
لل ۵4م×€ا مثل خاصية ال عاعأمصmهc‏ 0أالاج » اضف لذلك انه مفتوح المصدر بمعنى انه متاح 


بالسورس ڪود. 


______Motepadss - C Program Fles\Notepédt+\config.xmil DD = + x 
Fil Edit rE e Faria FERE Setting ı Macro RüR Plugins Windle E 
PI BogTopiestt 0 Feo) | e : 
- — FUE tor LSE ۴ -_ 
1 E version="1 0" encoding="Windows-— 125 HEX-Edîtar 5 8 
REESE E 
لا د‎ UEC ٠ TextFX Quik F 
4 tl 3 stoîus : “harge", "smail" or "hide" E E 
3 REULICORE1; Game="ToolBar"rstandar : 
څ‎ i 2 ahh - “how or “hides TextFA Convert ۴ 
1 #4GUIConfig name="StatunsBar" zshow< E EE 
ك‎ +i Far all giiributs. 2 shtohus : “yer” or "To" TextFK HTML Tidy  F 
: +GUIConfig name="TabBar" dragAin a0 TextiFk Toa Sart lines tase sensitive let column] کت‎ 
E TextFR Viz F| Sort lines case insensitive lat column) 
1Û tl positions : “horizêRîûlî ar "verticals TExEFK VE SEINES: FF 4  +Sprt aSCENndÎNnE 
11 | 2EUITConfig name="Scointi1llaYV iewaSp TEXIFK SERINES ۴ +5ort outputs only UNIQUE {at cofimn] IES 
— For the atitribut of position. ã status 7 docked or undocked . û salis SOW EE O TE TT 
13 #UICKOREI1g name="UsarDbefinsDlg"™ ammbmaiyemeers eT 
14 #EUIConRTIGT Ramea"TabSetting" 3izea"q{" replaceBYSpBad 1 
زص وة‎ | Insert Line Numbers 
1% | <êUICanfig name="AppPosition" x="195" y="104" widry _ Peete Line Numbers of Pies Word b" > 
17 ج‎ il— For the primary scimtilla view, | Clean eMaîl *ûurting 
ê | ã status for Attribut lineNumberMargin, book MarkMargin. indertêuidek ine and curj _ MUdecade 
Lg 4 stohus far Attribut folderMarkStyie : "simple", "arrow", "circle" and "box" x» | _Bazebg Decode 
ا‎ +EUICOATF1G Hame" SEINE LLaAPFIMRaATYFView" 1ineNumbe rMA Word Coun 
foalderMarkSTcylea"boxr" indenTcGuidelLine=" show" currenrLineHi Î Add up Rumer ۳ 
تناکا ا د‎ i len | _Empîy Undo Buffer (be sure to save) 
e, û sîaîus for Aftributî lineNumber Margin, beokMarkAkargiîn, iwderî5uidel ire ond itis how: "show" or "hide" 
ا‎ 4 stî for Aftribut falderMarkSîtyle : "simple", "arrow", "cirêle" and "box" 
4 XEUICOBEI1G Ramee" SSIRTILLaASEOODBAaATFYViaw" lineNiBkbEeTrHargin=" show" booaTEHNaFGÎiR™®" show" 


| foi derHarkStylem"baz" irdenrEuidelLi pe=" show" currenTLirneRTlitirgShow=™" show" Wrap="yes" edger" qo" 
eEdgeHbColunn=" gO" F7; 
ا‎ RGUICORTIG name="Aqto-deteaotion" yegt 7 GUICONTIG? 


r | 
r | 


zBUIConTig name="ChecgkHi storyFilas"zyeat; SUILConFI1g* 
lL Ti ICES maman ma ICID ES 
aven lble Markup Languaga Ale ib chû i 3277 1 Laid Galil Sal:0 Cas inmdaea ANSI IMS 


الصورة 5. 2. برنامج إJ .Notepad++‏ 
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يمكتنك معر فة المزيد هنا 


رابط گے 


http://notepad-plus.sourceforge.net/uk/about.php 


البرنامج نفسه تجده هنا مع مراحل تطويره حيث انه 501۲٤٣۴‏ 008۸ على هذا الرابط 


رابط گے 


http://sourceforge.net/ projects/notepad-plus/ 


SharpDevelop .4 .1 


موجه لخدمة ال 6# » يتميز بوجود واجهة للتصميم ايضا : 


î Hello SharpDevelop - SharpDevelop 
File Edit View Project Build Debug Search Format Tools Window 


UME EAR % ا | د و‎ 
| Tools 1 Xx| 
ASI Table 
L# Documentation Tags 
Licenses 
#aL-T : 
taeneral 1 View Code 
Clipboard Ring 


UseWaitkLurso False 
El Behavior 

AllowDrop False 
Bring to Front AutoFllipsis False 


Windows Forms E e Conte mu MO 
Windows Form Tend to Back Lontetlenut [nore] 
k Pointer DialogqResult None 
ab] Button ٣ Align to rid Enabled True 
CheckBox TT Tabindex 0 


= LomboBox Let Conirek سا‎ ٤ True 
A Label Usekompatibl False 
(® RadicButton î Cut Visible True 
abl] TextBox Lopy E 
Bl CheckedlListBox Paste (DataBindings 
EF DateTimePicker Delete ag 
W~ TT gE Design 
Properties [Name] Affirm Button 8 


Data 
Lomponents 


[Name] 
Indicates the name used In cade to 
Custom Components Identify the object. 


J Projects | fjl Tools eslg Properties PH Classes | 


In 2 col# cha INS ..: 


.SharpDevelop JI الصورة 5. 3. برنامج‎ 
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وهو الاقرب للفيحوال ستوديو فى المظهر والأآدوات ... يمكنك البدء بالتعرف عليه عيبر الرابط 


التالى : 


e 


رابط گے 
http://www.icsharpcode.net/OpenSource/SD/‏ 


2 . البدايۃ و2 ل 2008 Visual Studio‏ 


Studio Visual J| ga VB.net JI او‎ C# ال 0۴| المعتمد من مايكروسوفت لكتابة ال‎ 

باصدارتيه» حيث نجد الاصدار أ2٣ه‌أككم؟‏ م۲۲ وهو غير مجاني › اما 0۲655×£ والذي يکون موجه 
للغة معينة فهو مجاني مûثJ Visual C# 2008 Express‏ . 

بعد تشغيل البرنامج لأآول مرة » وحسب اللغة المستخدمة ستجد أول ما تجد خيارات انشاء 


مشرو ع أو S|‏ ا۷6 جديد اضافة للتعديل على الموجودين › من قائمة N6W‏ اختر ا٤٥‏ ز٥۴۲‏ مثلا 


E E E 1‏ | —0 0 ڪا ”ص 


ims س‎ 
Project types: Templates: | NET Framework d3. | EF E 
| ق اقسق‎ || Vreual Studie installad termrplates 
Windows EE Windewss Forms Application E Class Library 
ع‎ 
Smart Deeiçe 
Office 
Database 
Reporiirig 
Tel My Templates 


II WPF Application ae WPF Browser Application 

f Console Applrcaian ف‎ Empty Project 

YA Winders Serice i WPF Custom Control Library 
TIWPF User Control Library ا‎ anders Farris Canftiol Library 


ÊÊ Search inline TernplBted,s. 
Viorkfbari 

Database Piejéets 

ther Lan quta ges 

Oeririlsited Sterns 

Gther Propecît Types 

Test Frajerts 


A projecî for crealinmg a command-line application (MET Framework 3.9] 
Marmite: konseleApplicakion# 
Leratiar: CAUsergiAhm ed Doc umerts Visual Sirdio MEN FPrajecils 


Solution Marmzî Coral p plicated [¥] Create directory for solution 


ا 
a) gera‏ 
کڪ کے 


الصورة 0. 4. انشاء مشروع جديد في ال 2008 „Visual Studio‏ 
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ابسط الأنواع هى ١0|ةءiاممA‏ ماsoص0)‏ وهي شاشة لكتابة الكود تحتوي مبدئيا على 45ا٣‏ واحد 
باسم 131١‏ وال ع٥٤503 ٣۳8‏ هو اسم المشروع الذي اخترته ... فقط. باقي الانواع سنتطرق لها 
في مراحل مختلفة من الكتاب » سنستخدم هأ50١K0‏ لإنه ابسط الأنواع ونستطيع من خلاله فهم 


كامل بيئة 2008 ا€,. 


على يمين الشاشة تجد ال ١٤٣0ام×ع٤‏ utio”nاS0‏ » حيث يمكنك التنقل بين مكونات المشروع 
المختلفة » تحت تبويب References‏ تجد المكونات المضافةه إلى برنامجك . تستطيع اضافه 


مكونات جديدة من خلال الضغط على ك€٥٣٤١۴٥۴۲عع۸‏ بزر الفأرة الأيمن واضخط لك۸4. 
Solution Eapiorer = ComsioleABolicatiand e YF‏ 


E اک تا 3 ل‎ 
فن‎ Saliron  LorgolgAppircationd" [l projet) 
A ConsoleApplicationê 
Î Praperiies 
aij References 
E] Program.cs 


اسفل هذا التبويب يمكنك التبديل بين اسلوب العرض »› تستطيع اختيار عرض Class‏ بحيث يتم 


ı Classes Jı‏ دة فى مشرو عك و الطرق والخصائص فبها 
عرص جميیعح جو ده هي مسرو و ف و نص د 


E7‏ فا 
Search 3‏ 2 


ETI ConaaleApplicatiod 
I-g Frojett Refereneaî 
1-J Consal Ap plcaliond 


3 Fregrarî 
LG Fare Type 


تحت تبویب Properties‏ تحد خصائص المشروع > لو قمت بالضغط عليه مرتين ستحد خصائص 
يتيح تك ال أ€١.‏ ايضا ۵۲١1ء0‏ كءها) حيث يمكن رسم الفنات C|355€5‏ وتحديد العلاقات بينهما 


بصورة مرئية ومن تم يتم تطبيقها مباشرة مع الروابط بينهما على المشروع مباشرة. 


2. 1. برناوحك الذول 


سنجرب اول برنامج بسیط لنا » فی ال ۴۷۸٤|0۸‏ المسماه 3١‏ ضع الكود التالى: 
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CH 


Console. WIEIte ("Hello WOFLA™); 
Console.ReadKey (); 


VB.NET 


Console.Write ("Hello World") 
Console. ReadKey () 


فقط ... تكون هكذا قد أنشأت برنامجك الأول فى 2008 0أdناا؟‏ أهuاءألا‏ . جرب الضغط على زر 


د۴ وجرب ناتج البرنامج. 
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الحدزئ 01 


الباب السادس مكونات اللفة الرئيسية 


قبل الابحار في عالم المكونات الاساسية للغات الدوت نت » سنتعرف على سوية على بعض خصائص 
ال 00١501‏ والتي سنستخدمها لاحقا في دروسنا. 


أ خصائص هo1s01د°‏ 


حتی هله المرحلة من الدروس نستطيع اللآن الكتابة قلی الشاتة و عمل دوال و استدعاءها 
واسترجاع قیم و طباعتها » عند هده المرحلة فنا خد راحه قصيرة للتحعرف علی العتاصر الاساسية 


للبيثة K0 ١50٥‏ التى تعمل علبها خالا 


اهم الدوال التي تحتويها الفئة €أ50١0)‏ هي دوال الادخال والاخراج » وهي: 


تن اة ر 

Console.WriteLlLine (string) 

لاء يهل ديك لطر اتال خط قى تيص لابا ر 

string x = Console.ReadLine (); 

اا وط مي اللراا قن ال ها مس الووا يم من اجات ا ر اة ر 

int x = Console.ReadKey (); 

اتر حط مع اسر اة ية انهاء ويثح فقط و أاحد حرف قراءة 7 

ConsoleKeylInfo r = Console.ReadKey () ; 

زو ملل اة ان اال هكن + االله يغد القراء من والتهاء فط و اخك جرف كرادة 7 


حاص تقر ى اللااة تاين يته لتا مللا اميخ 


VB.NET 


gE ETTT 

Console.WriteLlLine (String) 

ال اء وعد عخايبي لوطو الا ال خط م اض ا كالاة ` 

Dim x As String = Console.ReadLine () 

الت ضشعط مع اة مي الت اه ويتم الفقمستجدح من ملاحخلات: لكر اء 1 

Dim x As Integer = Console.ReadKey () 

إنتر ضغط مع القراءة عملية انهاء ويتم فقط واحد حرف قراءة ' 

Dim r As ConsoleKeylnfo = Console.ReadKey () 

رو مام اة اي اوخال جمكن + االله معد العراءة من والاتل نها حفط واعخدة حرق كواعية ' 
عام مار قي الناع اين ريت للا ما الي 
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دوال أخرى خاصة بعمليات الأآلوان متل ۲٤010٣۸d٣0uاore6Gr‏ ۳ للون النص و 


Background c01‏ للون الخلفية» تستطيع تعيين اللون عن طريق الفتة 
Conse 10۳‏ بالشکل التالي 


ڪو د | CF‏ 


Console. FoFegGFOoOundaColoOE = ConSolLECoLoOE. Yellow; 


لو كنت مبرمج 5.١€‏ فلن تحتاج سوى لازالة ال ز من آخر الجملة . 


هناك خصائص أخرى مثل 1أاN1dسN1indow‏ و eع1ا1"ا‏ وخلافها لتحديد مظهر النافنة. 
نعود لأحد مواضيع الطباعة › لنفترض اننا نريد القيام بطباعة النص التالي: 

الإسم: المتغير ١۸14۳٥‏ 

العمر: المتغیر ۸٩3€‏ 

يمكننا القيام بدلك عن طريق كتابه الكود التالي: 


CF 


Console.Write ("First Name: " + name + " - Age: " + age); 


CF 


Console.Write ("First Name: {0} - Age: {1}", name, age); 


بواسطة الطريقة التثانية » یمکنڪ عمل ۴0١0۲۳۵‏ للنص باستخدام رموز لك للارقام و € لل 


ات exponent‏ بالشکل التالی مثلا: 


CF 


Console.WriteLlLine ("E format: {O0:E}", 99999); 
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2 تعریف المتغیرات 


كما ذكرنا فى الدروس السابقة يمكننا تعريف المتغيرات بالطريقة التالية 


CH 


IOC OF 
string name; 


VB.NET 
Dim nhahe AS String 
وخلافه » ولكنك بالتآأكيد تلاحظ وجود الكلمة 187۷ في كثير من تعريف المتغخيرات › فما هي‎ 
٩ مهمتها‎ 
وهو ما سيعيدها إلى صورتها الافتراضية‎ 1١07۷ بعض الانواع البسيطة يمكن تعريفها باستخدام‎ 
الموجودة في المنشئ الخاص بها › حيث يتم تحويل الانواع المتنطقية 1 ٥0ط إلى ع٥15ه] والارقام‎ 
إلى صفر وڪدلڪ باقي‎ 
آنواع المتخيرات.‎ 
لكن هناك انواع اخرى من‎ 
البيانات ا يمكنك استخدامها‎ 


ّ 


إلا باستخدام 18۷ متل ال 


ValueType arraylists 0و‎ bjects 


DatêT imê 


ا 


و خلافه مما سنتعرف عليه فی that derives‏ 


From 
15 ھ3‎ ۰ 
ى‎ 3 4 
OF enm :. 
: TimeSpan 4 


الصورة 6. 1. الأنواع في ال 
#€ (الصورة من كتاب 


ProCSharp 2008 and .net 


(2008 platform 
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الباب السادس وكونات اللفة الرئيسية 


جميع الانواع المشتقة من 0٥(٤۴٤1‏ تملك بالضرورة طرقه الاساسية مثل كاuaا¶‏ و 
code‏ HashاGe‏ و خلافه. 


آما الطرق الاساسية للانواع الرقمية مثل ا١1‏ و 10١0‏ فتشمل الخصائص الاساسية 
مثل «axa 1 u٥‏ و ... MinVa1lue‏ فيما يحتوي ال ٤٣2٣ع‏ على خصائص مثل 15(1391 و 


٣إe€ااtع€اs]‏ لتحديد طبيعة المدخلات. 


2. 1. أنواع الوتغيرات 


فى اي جزء من البرنامج داخل ال ككaا٣‏ يمكننا تعريف المتغيرات حسب النوع Ls‏ 
string‏ مثلاء ويتم تحديد مدى الوصول عبر المكان الموجود فيه التعريف. 


لتوضيح هذه النقطة سنتفترض متغير تم تعريفة داخل دالة » هذا المتغخير لن يستطيع آحد الوصول 
إليه إلا خلال الدالة » ونفس الأمر لو تم تعريفه داخل شرط أو داخل حلقة تكرارية › أما لو قمنا 
بتعريف متغير خارج الدالة ( داخل الفئة ككةا) مباشرة ) فيمكن لاي دالة الوصول إليه مباشرة › 
في هذه الحالة يسمى ۲ Memnb€‏ . 

لدينا نوعين من المتغيرات › النوع الأول وهو البسيط مثل ا١1‏ و 10١3‏ وخلافه حيث يتم يشير 
اسم المتغير لمكانه من الذاكرة أما المرڪب مثل ۸۲۲۵۷ و احلا٣اS؟‏ فيشير المتغير إلى مكان 
تستطيع منه الاشارة إلى المتغير في الذاكرة › سنتعرف على هذا الموضوع بالتفصيل في دروس 


قادمة . 


Constants قılgûll‎ .2 .2 


ال constant‏ ھو نو ع من البيانات ا يمكن تغيير قيمته ابدا » لذا يعرف باسم خ١53١K0‏ او الثابت» 


بمکن کتابته بالشگل التاتی: 


ڪو د ) Cf‏ 


OuUDLLE CORSE IRE MYNumMbeE = 100}; 
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اللاب السادس وكونات اللفة الرئيسية 


VB.NET ا‎ 


Public Const myNumber As Integer = 100‏ 
يتم استخدام هذه الثوابت كقيم ثابتة لبعض المعادلات مثل 3.14| » مثل رقم معين تستخدمه 


الشركة فى الحسابات ... الخ . فى هذه الحالة يفضل تعريفه كثابت بدلا من تعريفه ڪمتغير 


لضمان استحالة تغييره في اي وقت. 


يتم تعريف الثابت مرة واحدة واعطاءه القيمة لحظة تعريفه فقط... 


القيم للقراءة فتط Read Only Field‏ 
يتم تعريفه بالشكل التالي: 


Cf ) ڪو د‎ 
public readonly double PI = 3.14; 


VB.NET ا‎ 
Public ReadOnly PI As Double = 3.14 


يعمل مثل ال ConstaI†‏ اسا > ما عدا انه بختلف فى امكانية اعطاءه قيمة يعد انشاءه مرة واحدة 


دون ان شرط اعطاءه القيمة في نفس لحظة التعريف بالشكل التالي مثلا 


Glass MYMathiClass 


{ 
pubDILcE readonly double FPL; 
publlc MyMathClass () 


SLE 


VB.NET 


Class MyMathClass 
Public ReadOnly PI As Double 
Publ1c Sub New () 
EL = 314 
End Sub 
End Class 


92 


اللاب السادس وكونات اللفة الرئيسية 


3 المتغيرات النصيةۃ ٣19‏ غS‏ 


سنتحدث في درستا هذا حول كل ما يتعلق بالنوع ۲11٣٩‏ ا5 


3. 1. الخصائص و الدوال التساسية لل و٣1٣‏ غS‏ 


الدالة أو الخاصية الإستخدام 


للمقارنةه بين نصين 


لمعرفة فيما اذا كان النص يبدآ او ينتهي بحرف او نص معين 


استبدال جزء من النص 


لتحويل حالة الاحرف بين أهاأمca‏ و ااaمصsm‏ 


الجدول 6. 1. خصائص و دوال الفثة 1۸٥0‏ 1١ا9‏ 
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اللاب السادس وكونات اللفة الرئيسية 


CF 


SLCEIRT Ll] HEWarEaYyY = G.SOLIT (TP) 


VB.NET 


Dim HEewartay AS SLFING() = G.SOLIL (TF) 


الطريقة الابسط لدمج النصوص هي باستخدام + »او باستخدام الدالة 00۸٥-3٥‏ بالشكل التالي: 


ڪو د ) Cf‏ 


ELCINGO GT = COTIN. UONCIESLy B2) 


VB.NET 


DIM. 63 £8 SIFING = [SLELNON s#COnCaAEL Ol; 82) 


يمكن استخدام المعامل == لمقارنة النصوص في CF‏ أو = في VB.net‏ > إلا انه من المفضل 
استخدام الدالة كأةلا۴4 بالشكل التالي: 


C# | ڪو د‎ 
Console.WritelLine (s1.Equals (s2)); 


VB.NET 2 


Console.WriteLlLine (s1.Equals (s2) ) 
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اللاب السادس وكونات اللفة الرئيسية 


Escape Characters .5 .3‏ - سى شارب فقط 


في كل لغات عائلة السي » تجد حرف / محجوزا لبعض الحروف الخاصة مثل /١‏ لسطر جديد و 
ا/ لعمل 13 وغیره › بالشکل التالى مثلا: 


ڪو د | CH‏ 
Console.Write ("My Name:/nAhmed Gamal");‏ 
لذا إذا اردت ان تكتب / فلا بد لك ان تكتب //» هناك حل آخر وهو استخدام ما يعرف 


باسم Verbatim" S٣٣85‏ حيث يمكتنك فى هذه الحالة كتابة نص عادي بدون القلق من ال C2€٥؟ع٤‏ 


Char 6‏ بالشکل التالی مثلا: 


CF 


Console.Writeline (@"C:\MyApp\bin\Debug”) ; 


التحويل من وإلى S٤٣13‏ 


تحتوي معظم الانواع الاساسية على الدالة ۲2٤58‏ والتي تحول النص إلى مناظره › 
بالشكل التالي متلا: 


CF 


INL & = NHC. PATO TIT); 
bDOOL VY = BoOoL.Parcse (TIEUe") j; 


VB.NET 


Dim x As Integer = I[Integer.Parse ("1") 
Dim v As Boolean = Boolean.Parse ("True") 


كما تحتوي ايضاً على الدالة 105٤۲11١3‏ لتحويلها إلى نص بالشكل التالي مثلا 
ڪو د ) CF‏ 


VB.NET ع‎ 


IM E KS BUTI = M.IOSTLEING O 
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الباب السادس وکوناٹٰ اللعہ الرئیسیہ 


StringBuilder .1 3 


عندما نقوم بدمج النصوص » يلجأ الكثيرون منا لاستخدام المعامل + في #€ أو المعامل & 


في ۷5.۸٥‏ بالشكل التالي - متال اضافة امتداد البريد الإلكتروني: 


CF 


ly CO 
Labell.Text = Textl1l.Text + "G@hotmail.com"; 


VB.NET 


"VB.net: 
Label. TEx = TEXTLI. LEXE FF  TOMOEMALL. CoM" 


إلا أن 0 Su‏ أاهuكألا‏ قدمت لتا طريقة أخرى لدمج التنصوص باستخدام الفئة 
GE ULLEE‏ قى مجال اانا 1T CFI BU L1G F‏ بمکن 
استخدامها لدمج النصوص بالشكل التالي: 


eT 
System. Text.StringBullder mall = New System. Text.StringBullder (Textl1.Text); 
MALL AON TORO MALL. COM 


'VE:hNer: 
Dim mall As New System.Text.StringBuillder (Textl1. Text) 
Mal lL .Append{( "ONOEMaLL. COM”) 


الفارق بين الاثنين يكمن في ان 51۲11١081110٥١‏ يظل كما هو منن لحظة انشاءه» اما 


استخدام المعاملات + أو & فهو يقوم بعمل ا٤٥[‏ 00 جديد من ال ٣11٥0‏ ا5 مع كل عملية 
دمج . 

والآن سنفترض متال 1000 تقوم بدمج عدد من النصوص» وسنصور المقارنة مباشرة من 
كتاب. ك۸8٤6013‏ أ۸€» حيث قام بعمل اختبار لعدد عمليات دمج ابتداء من 10 عمليات دمج وحتى 
0 عملية دمج › وقام بمقارنة الأداء بين استخدام 1110٥۲‏ 08٣1ءا‏ اS‏ او استخدام 


معاملات الدمج التقليدية » مع ذكر زمن التنفين بالتانية لكل منهم. 
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الباب السادس مكونات اللفة الرئيسية 


Table 1-3, Performance, in seconds, ûf concatenation versus String Bulder 


# of apponds 1 String Hauler 
11 L-I U. OE 
[O 000 O. OG 
1,00 0.000 0,00 
2 20 mn | 3 
BB, OO Ee FE لالا‎ 
7,00 050 D0 
1. DDD Ea ri 0 
En mE) 2SD U. DE 
اا( .1 ااا ے2‎ 
a, OOO EEF a 
SO, HOG ا ت‎ 304 
E, IL 1.525 En 
OOO 14E O1 
Eî, IDG EE: 3,01 
LHI, HOH 159 I.1 
aE 5-174 D01 
LT RTE a EFE FE. 
1,00 Tl 1 
I, OO 10.129 .04# 
ESI, aD IS2, OE 0.9 
a, HE ا و‎ 36 
Eh, OG ا وا‎ 1 
o la el CEFN ME O? 


الصورة 6. 2. مقارنة نتائج سرعة تنفيذ النتائج بين المعامل + و StringBui1der J|‏ 


لا تنسى ان 3562.933 ثانية 


» 


دعسی 59.4 دقيقه تقرببا... 


والآن ... هل ما زلت تستخدم & او + لدمج النصوص ٩٩959‏ 


توفر الفئة ا Str in98 u1 1de‏ ايضا عملیات استبدال 12٤٥٤‏ ع٤۸‏ وادراج ح٣ ]"5٥‏ وحنذف 


RE٥‏ و عملیات نصوص آأخری ڪثيرة »› يمکٽنڪ الاطلاع على أو جه كثيرة للمقارنة مدعومة 


بالرسوم البيانية من خلال هذا الرابط من ا٤٥‏ ز۴۲0 مcod:‏ 


رابط گے 


http://www.codeproject.com/KB/cs/ StringBuilder vs String.aspX 
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اللاب السادس وكونات اللفة الرئيسية 


التعامل وع الناريخ و الوفقت 


تجد جميع ما يتعلق بالتاريخ والوقت في المكتبة 03٠11۳٥‏ › فمثلاً لاضافة تاريخ معين: 


CF 


DateTime dt = new DateTime (2004, 10, 17); 


لطباعة التاريخ الحالي: 
Cf‏ 


يمكن التعامل مع الوقت أیضا باستخدام 11۳٣٥8021‏ 


ڪو د ) CF‏ 


TimeSpan ts = new TimesSpan (4, 30, 0); 


الاضافة والطرح باستخدام الداول A١‏ و ا٤2٣‏ اsطSu‏ بالشكل التالي: 


ڪو د ) CH‏ 
أو 
ڪو د | CH‏ 


لو كنت مبرمج ۷8.١٥€‏ فلن تحتاج سوى لازالة ال ز من آخر الجملة . 


التحوبل بين المتغبرات المختلن: 


بداية » تنقسم التحويلات بين المتغيرات إلى نوعين رئيسين: 


Widening Conversions ® 


Narrowing Conversions ® 
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الباب السادس وکوناٹٰ اللعہ الرئیسیہ 


Widening Conversions .İ .5 


يقصد بهذا النوع من التحويلات تلك التحويلات التي لا يمكن فيها خسارة اي نوع من البيانات» 


وتسمى باسم أكةc UW 3۲١‏ » مثال ذلك التحويل من S١0٣‏ إلى إعو ع اد] في المثال التالي : 


VB.NET 


DIN XK As SliOIL = © 
power (x) 


pPOWEF alIدلا وفي‎ 


INL GOwEEF (ANT HUMbEEF) 


{ 


return nümber * 2; 


و 


VB.NET 


Private Function power (ByVal number As Integer) As Integer 
Return number Xor Z2 
ENC. FUNCELGT 


لو لاحظت ستجد ان الدالة تستقبل بيانات من نوع ا١٣1‏ فيما ارسلنا لها بيانات من نوع S10٣‏ 
في هذه الحالة لن تكون هناك مشكلة لإن مدى ال ]١۲ ٥9٥٣۲‏ اكبر من مدى ال اSho0۲»‏ 


وبالتالي فإن اي مدى لل ا٣إ‏ 5"0 يقع ضمن ال 1١۲98٣‏ بكل تآأكيد. 


Narrowing Conversions .2 .5 


الحالة العكسية › التحويل من الأإكبر إلى الأصغر » مثلاً لو كان المتغيران من نوع إ©63 ا١1‏ 
والناتج من نوع 0 احمل آل سو بصورة صحيحه لو ڪان مجموع الرقمين e9٥٣‏ ا1N‏ 
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الباب السادس وکوناٹٰ اللعہ الرئیسیہ 


اصغر من الحد الآقصىی ٿJ «Shor‏ ولکن لو افترضنا ان مجموعهم تجاوز حدود مدی ال 

ح٣٣0‏ فإن ذلك سينتج مشكلة. 

لهدا السبب » يمتنعك المترجم مباشرة من كتابة متل هذا الكود ويعطيكڪ رسالةه الخطاً التالية: 
Cannot implicitly convert type 'int' to 'short'.‏ 

لكن لو رغبنا في التحويل رغما عن هذه النقطة حتى لو نتج عن ذلك ضياع بعض البيانات » في 


هذه الحالة نلجاً لما يسمى ب أكCa‏ 


Cast JI عولیاٽ‎ .3 .5 


لا تنطبق عمليات ال آأكئة٤‏ على التحويل من اڪبر لأصغر فقط › بل يمکن استخدامها في ڪل 
عمليات التحويل › ابسط استخدام لها هو لتحویل 1۸۱198۲ إلى ا5۸0 بالشكل التالي: 


CF 


INL va = 10; 
short var2 = (short) var; 


VB.NET 


Dim var As Integer = 10 
DIM varz AS Short = CSHOFET (Tar) 


في المثال السابق › لو قمنا بطباعة نتيجة 74٣2‏ سنجد انها 10 › لكن ماذا لو افترضنا المتال 
التالى: 


int var = 100000; 
short var2 = (Short) var; 
Console.WriteLlLine (var2) ; 
Console.ReadKey () ; 


Dim var As Integer = 100000 
VIM Var AS SDNOFET = CSNOFT (TAFE) 
CONSOLE. WELTELINE (VaE2) 
Console.ReadKey () 
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الباب السادس وکوناٹٰ اللعفہ الرئیسیہ 


النتيجه لن يمكن توقعها بالنسبه للعميل» ولكن بصورة مقربه لك كمبرمج ستكون النتيجه هي - 
31072 حيث سيقوم المترجم بعكس الإشارات ايتداء من 32768 ومن تم انقاص رقم مع ڪل 
زيادة عن الرقم السابق» او باختصار فهو يقوم بطرح الرقم الناتج من الحد الاقصى او المدى 


اللاقصى للنوع وهو 3276/7. 


باستخدام هذا النوع من التحويلات › فإنه من المفضل دائما استخدام s1ئام“)‏ ۷اا والتي 


سنتعرف عليها بالتفصيل فى جزء قادم من الكتاب. 


5. 4. lلتحgيJ‏ ڊplaèüwl Convert‏ 
يمكن التحويل بين اي انواع من البيانات باستخدام الفئة ٣إ C0١۷6‏ بالشكل التالي مثلاً: 


CF 


MYEVEES = CONV ELCELLIOBYVLE (MYIRE 


VB.NET 


myByte = Convert. ToByte (myInt) 


6. الحول الشرطية فى اع.. 
6. 1. أساسيات الشروط 
ابسط الجمل الشرطية هي تلك التي تستخدم ه15ع 1٤1‏ وطريقة كتابتها بالشكل التالي: 


1] )×x == 5( 


Console.WriteLlLine ("five"); 
else 
Console.WriteLine ("notFive"); 


101 


الباب السادس مكونات اللفة الرئيسية 


If x = 5 Then 


CORNSOLE.WEITeSLILNEe (TVET) 
Else 

Console.WriteLlLine ("notFive™) 
le I 


يتم استخدام كافة انواع المقارنات == و != و > و < في الجمل الشرطية › يمكن دمج اكتثر من 
شرط باستخدام ۴15٥١ 1٤‏ بالشكل التالي: 


(x < 90) 
Console.WriteLine ("jlinn") ; 


else 1f 


ا 


Console.WritelLine ("awl j"); 


If x > 90 Then 
Console.WriteLine ("jlinn") 
EIGETT E < UO ThE 
CONSSLE.WELEOLINE FSET) 
Else 
Console.WriteLine )"ر اسب"(‎ 
es e 


يتم تطبيق الجملة الأولى في حالة كون الناتج (١٠ا٣١)‏ وإلا يتم تنفين الشرط الثاني. النظام 


القديم للغات السي والتى كانت تقضي بانها صحية لو كانت تساوي 1 ايضا مثل الجملة التالية: 


كنا قد تعودنا مع عائلات اللغات التي تتبع ال € أن نقوم بكتابة بعض شروطنا بالشكل التالي : 


CF 


IT SUTIN lEDORE) 


حيث يمكن لو كان له قيمة آن يحقق الشرط = ه٠1۲1‏ هذا النظام لم يعد صالحا مع السي 


شارب بعد . 
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الباب السادس وکونا اللعفہ الرئیسیہ 


6. 2. دود الشروط 


لعمل اكثر من شرط يمكن استخدام X>»‏ أو ۸١۵‏ للدمج بين الشروط بحيث يتم تنفين الشرط في 
حالة کونم بی 0 او استخدام معامل 0٣‏ والذي يتم كتابته في سي شارب بالشكل التالي 
| | فيعطي نتيجة في حالة كون اي واحد منهم صحيحاً › المعامل ا0 والذي يكتب بالشكل 
التاليى ! فيعني في حالة عدم (نفي) لاتنس ترتيب الاقواس في هذه الحالات حتى ¥ تتداخل 
الشروط بالشكل التالي مثلا: 

ڪو د ) CF‏ 


1F ((x < 90 || x > 50) && (!name = "ahmed") ) 


VB.NET 


If (x < 90 Or x > 50) And (Not Name = "ahmed") Then 


End IE 


AndAlso .3 .6©‏ 
كنا مع عادتنا في برمجيات أ€١.‏ وفي المعامل A١١‏ ان يتم اختبار الشرطين» ويكون لها جدول 
التاتج التالي : 


الجدول 6. 2. جدول الحقيقة الخاص بالمعامل ۸٣۸۵‏ 


وبرغم انك تلحظ بإنه في حالة كون الطرف الأول ع15ه٤‏ فإن الجملة مباشرة ستكون خاطئة» 
ولا يوجد آي داعي للتحقق من الجزء الثاني من الشرط › ولكن للاسف هذا ما لا يفعله المعامل 
„And‏ 

لكن مع ۸١0۸150‏ فالموضوع مختلف » فهو يعيد ۲2158 مباشرة في حالة وجود اي تعبير 


اظ 
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مادا نستفيد من ذلك 9© ببساطة شديدة » لنفترض الكود التالى : 


(LD * 0. & SEAECBEOEID(IA), =0) 


7/7 d6 Something 


VB.NET 


If 1d > 0 And SearchForlID(id) > 0 Then 
' do something 
Enid: IF 


في الواقع وحتى لو كان ال 10 اصغر من الصفر › فسيتم تنفين امر البحث وهو ما ينتج بطء 
شديد جدأ في المعالجة لا نحتاج إليه » يتم التغلب عليها بالطريقة التقليدية بالشكل التالي : 


Gd: > 0) 


LE (OCU ECDNEOEIDO, =5 U) 


{ 
/7 d6 Some LhHInRG 


LE 1l = U Than 
If SearchForlD(id) > 0 Then 
' do something 
ETC TE 
El. LF 


(LGU > U EC SEALCChONEOEIDEO}, 20) 


// do something 


VB.NET 


If 1d > 0 AndAlso SearchForlD(i1id) > 0 Then 
' do something 
ENC. LE 
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OrElse .4 .6 


كما هو الحال مع 2١١‏ » يتكرر الآمر مع المعامل ٣ا0‏ والذي له جدول النتائج التالي : 


الجدول 6. 2. جدول الحقيقة الخاص بالمعامل 0٣‏ 


وبرغم انك تلحظ بإنه في حالة كون الطرف الأول ع ا٣آ‏ فإن الجملة مباشرة ستكون 
صحيحة» ولا يوجد آي داعي للتحقق من الجزء التاني من الشرط › ولكن للاسف هذا ما لا يفعله 
المعامل ٣آ0.‏ 

من اجل هذا كان المعامل 0۲۳15٥‏ والذي لا يكلفك عناء التحقق من عدة مدخلات ڪما 


هو الحال في الدرس السابق ايضاً مع ۸150ك١۸‏ . 
6. 5. استخدام ال طcغsw1‏ 


طريقة اخرى للجمل الشرطية هي استخدام C1‏ ]5۷1 بالشكل التالي: 


ERIECED (8) 


{ 


case 90: 
Console.WriteLine ("jliann") ; 


break; 

case 5O0: 
CONSOLE WELL ELINE aL, 
break; 
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Select Case x 
Case 90 


Console.WriteLine ("jliڌnn")‎ 

Case 50 
CONSOLE NIECE Fas, 

End Select 


لا تنس اضافة 2ةت١ء۲اط‏ في اخر الشرط » السبب ان ذلك يمتع المترجم من الاستمرار في اختبار 
باقی الشروط عندما یعتر علی اول شرط )اما إذا كنت ترغب فی مرورهہ على كل الشروط حتی 


مع تحقق اي منهم فلا تضف 2١ع‏ اط »في الفيجوال بيس لن تتعرض لهذه المعضلة . 


7. الحلقات التكرارية 


نستخدم الحلقات التكرارية لتكرار سطر او امر عدة مرات »› سنشرح طرق التكرار في هدا الدرس 


For-Next Loop „L.7 


حلقة تكرار يتم تحديد نقطة البداية والنهاية ومقدار الخطوة فيها › ابسط مثال عليها الكود التالي 


For (int 3 T1 < LOFT) 


Console.WriteLlLine (1); 


VB.NET 


For 1 As Integer = Û0 To 9 
Console.WriteLlLine (1) 
Next 


TOE (AN 1 : 1 > 10; 1 ر( خ4‎ 


Console.WriteLlLine (1); 
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VB.NET 


For 1 As Integer = 0 To 9 Step Z2 
Console.WriteLlLine (1) 
Next 


While Loop .2 .7 


حلقة تكرار تستمر في العمل حتى تحقق شرط معين › لنفترض متلا حتى وصول العداد إلى رقم 
10: 


int x = O0; 

while (x < 10) 

{ 
Console.WriteLine (x) ; 
XPT, 


VB.NET 


Dim x As Integer 
While x < 10 


Console.WriteLlLine (x) 
X+=1 
End While 


حالة اخرى غير رقمية › ادخال بيانات حتى ادخال "٠×1٤"‏ .> في هذه الحالة سوف نضيف 00 


في البداية ونضع 1٠‏ 1١آ‏ في النهاية. 


SELENE Inb; 
do 
| 


LOG = CONE OLE. TEAC LINE O) 
Console.WriteLine (inp); 


} 


while (inp !l= "exit"); 
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VB.NET 


DIM ANE A SCEING 
0 
1Inp = Console.ReadLine () 


Console.WriteLlLine (inp) 
Loop While inp <> "exit" 


IME] alE 2l LO, 2U, SO; A40 FF 
Toreachn (int Î IR ar) 
Console.WriteLlLine (1); 


VB.NET 


Dim arr As Integer() = {10, 20, 30, 40} 

For Each 1 As Integer In arr 
Console.WriteLlLine (1) 

Next 
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وکونات اللعہ الرنیسیيہ 


الحدزئ 02 


الباب السابع مكونات اللفة الرئيسية 


1. لنفهم برناوجنا الذول 


لو لاحظنا برنامجنا الأول لطباعة جملة W0٣١‏ ١ا٥1‏ والذي كان بالشكل التالى: 


using System; 

using System.Collectlons.Generic; 
using System. Text; 

namespace ConsoleApplicatilion4 

{ 


CIES FFOGOTM 


{ 
Static VOI Main {(SltEiInG ll aF£g5S) 
{ 
Console.Write ("Hello World"); 
Console. ReadKey () ; 


آما في فيجوال بيسك فكان بالشكل التالي : 
VB.NET‏ 


Module Modulel 
Sub Main () 
Console.Write ("Hello World") 


Console. ReadKey () 


ENC SUG 
End Modulê 


اول ما سنجده في #) هو استيراد المكتبات التي سنستخدمها لكتابة اكوادنا باستخدام 1511١3‏ أما 
في الفيجوال بيسك فتم تعريف [10011٥١‏ قمت بكتابة الأكواد داخله مباشرة › ال 1٥€‏ 1ا0" هو 
فة 1a5‏ عادية ما عدا أن جميع فئاتها هي -٤1اa2اs-لكءءإهاك‏ ينشآها الفيجوال ستوديو 
لڪ في حالة ڪون مشروعڪ من نوع 6/. 

الجزء الثاني في كود #€ هو تعريف ال ع٥٤503 ١.۳€‏ الخاص ببرنامجنا وهو الاسم الذي توضع 
تحته كل مكونات البرنامج » ومن ثم ال C1255‏ الاساسي لدينا باسم [211١‏ ... كما تعلمنا في 
اي مبادئ للبرمجة كائنية التوجه فإن أي برنامج يتكون من واحد او اكثر من ال ك855€|€» الدالة 
الرئيسية في ال 1255ع المسمى [31١‏ هي الدالة "21٣١‏ والتي يتم تتنفيذها اول شيء في 


البرنامج. تستقبل الدالة M211‏ مجموعه من الباميتير تحت اسم 3۲395 » معنى هذا ان البرنامج 
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يستقبل مع تشغيله مصضفوفة من [0] 95اه إلى ]١|‏ ۲95» يمكن ارسال كل ما تريد إلى 
البرنامج من خلالها › وهو ما يسم Command Line Parameters‏ . 


لكي ا نبعد عن مسارنا في الشرح › ال 0m ا٣ع Ags‏ هي مجموعة من المتغيرات التي 


يمكن تمريرها للبرنامج وقت تشغيله لتتحكم في بعض النقاط » مثلا لو قمنا بكتابة الامر التالي: 


ڪو د | shell‏ 


el EO o> Cu 


اول ما یتم فتح برنامج 0۲۴۲|م×٤۴‏ » يقوم بقراءة النص الممرر له › إذا كان موقع انترنت يقوم 
بفتحه بالشكل المعهود لمتصفح الانترنت» اما لو كان مسار مثلاً ٤|‏ فسيقوم بفتح متصفح 
المجلدات مع انهم نفس البرنامج في النهاية . 

تستطيع تجربة ذلك على برنامجك من خلال قراءة المتغيرات الممرة له عن طريق ٣"0٣١‏ 


LOG 


TOE (1RE 1= UO; 1 < aAFOS.LENOTN, 1) 
Console.WriteLlLine (args [1]); 


For 1 As Integer = 0 To args.Length = 1 
Console.WriteLlLine (args (1) ) 
Next 


الآن قم بالذهاب إلى ١لا۸»‏ قم بكتابة مسار برنامجك ومن ثم مسافة ومن ثم كتابة البارميترات 


التي ترغب في تمريرهاء في جهازي كتبت الامر التالي في ١لںا۸:‏ 


TUONO DME VI WII EUG 


UOC Tel CM CIE EI Co OI 2E E i 1 € 
SOlEeapplicalion4.€xe alimed ali 


الناتج الذي ظهر لي كان بالشكل التالي: 
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E CNUsertAhmediDocumentsWisual Studio 2008\Projects\ConsoleApplication4A\ConsoleApplication... ' 


الصورة /. 1. نتائج تشغيل الأمر في الشل 


كتطبيق سريع » ستقوم بقراءة المتخير الأول وهي حاله وجود 0 مغلا يتم تلوين خلفية الكلام 
بالازرق »› وفيما عدا ذلك يتم تلوين خليفة الكلام بالآأحمر » هذا هو الكود الخاص بذلڪ: 


if (args[0] == "0") 

{ 
COoORnSOlLe. BackKGFOUNQACOLOE = CONSOLECOLOE.BLuE; 
Console.WriteLine ("O0 enterd"); 

ا 

else 

{ 
Console.BackgroundColor = ConsoleColor. Red; 
Console.WriteLine ("Empty"); 

Console. ReadKey () ; 


TE alrOS(U). = FUT" Then 
CONSOLE. BACEGEOUNOCOLOE = CONSOLECOLOEF. BLUE 


Console.WriteLlLine ("O0 enterd"™) 

Else 
Console. BackgroundColor = ConsoleColor. Red 
Console.WriteLine ("Empty") 

ENO LE 

Console.ReadKey () 


تواجهنا هنا مشكلة» ماذا لو لم نقم بتمرير اي متغيرات .. ستظهر لك رسالة خطا › إذن نحن 
بحاجة للتآكد من وجود بارمتيرس قبل قراءتها » سنقوم بذلك عن طريق التآكد من وجود 
متخيرات › اذا ڪان هناك فيتم التآأكد من كونها صفر › إذا اختل اي من الشرطين نلجاً للون 


الثانى: 
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1F (arGs.LeEngth > 0) 


(AGS |0] 3= O") 


CONSOLE. BaCKOIOUNOCOLOT & CONS LECOLOE.EBLUS?; 
Console.WriteLlLine ("O0 enterd"); 


else 

{ 
Console. BackgroundColor = ConsoleColor. Red; 
Console.WriteLine ("Empty"); 


ٍ 
Console.ReadKey () ; 


VB.NET 


If args.Length > 0 Then 
If args(0) = "0" Then 
Console. BackgroundColor = ConsoleColor. Blue 
Console.WriteLlLine ("O0 enterd") 
ENC. LÎ 
Else 
Console. BackgroundColor = ConsoleColor. Red 
Console.WriteLine ("Empty") 
ENC IF 
Console.ReadKey () 


هتاك حل آخر »› ماذا لو احببتا ان نجعل التآأكد في سطر واحد بالشكل التالي 


CF 


1f (args.Length >0 && args[]0] == "0") 


VB.NET 


lf args.Length > 0 AndAlso args(0) = "0" Then 


هذا يعنى انه سيتآڪد من وجود بارميترس » إذا وجدها سينتقل للشرط التانى وإذا لم يجدها فإنه 
يخر ج مباشرة دون قراءة الشرط التاني... 
الجدير بالذكر ان المعامل ۸١١‏ لن يمكن تطبيقه في ۷/5.١٥‏ بل ستضطر لاستخدام A۸^dA1s50‏ 


الذي سبق شرحه في دروس سابقة. 
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Functions JIgدll‎ .2 


كما شاهدنا في دالة 2411۸ يمكننا انشاء اي عدد من الدوال بآي عدد من المتغيرات » ڪل 
ما نحتاج إليه هو معرفة البارمتيرات التي نريد لها ان تصل للدالة › وايضاً الناتج الخارج منهاء 
لنفترض مثلاً اننا نصمم دالة لعملية الجمع » تستقبل رقمين ٣ذ‏ وتخرج ناتج 1١‏ » ستكون 
الدالة بالشكل التالي: 


SLALCILIC INE Sumi HUmMbGEeErEL;y, INE nUmMGEEZ) 
| 
int total = numberl + number2; 
EELUEN LOLA; 


VB.NET 


Private Function sum (ByVal numberl As Integer, ByVal number2 As Integer) 
LNTLETET 

Dim total As Integer = numberl + number2 

RETUEN TOLCAL 
ENC FURNCELOoN 


LAL LEOSULL = SUMS, BF} 
CONSOLE. WELLE (CESULE 
Console. ReadKey () ; 


VB.NET 


Dim result As Integer = sum(5, 8) 
CONSOLE.WELLCE(FESULE) 
Console.ReadKey () 


لماذا تم تعريف ١1ا5‏ على انها 1٤‏ 21ا5 في السي شارب ٩9‏ 


السبب انه ا يمكن استدعاء دالة غير -٤1ا23آاS‏ من خلال دالة ٥٤1ا23اS‏ »وبماان دائة N1211‏ هى 
من نوع 1٤‏ 2اك فلا بد من ان تكون اي دالة اخرى يتم استدعائها من خلال ال "۵1١۸‏ هي 
ا س تغرف غلى حكن اا اصن الأخاكة لاخدا 
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Methods قjرطلنl‎ .3 


الطرق هي الدالة التي لا تعيد ناتج › مثل دالة عرض كتابة رسالة بالشكل التالي: 


TOI GEINTEMNSTGISTEELNG MSO) 


{ 


Console.WriteLlLine (msg); 


1 
في الفجيوال بيسك 6 كان يتم تعريف الطريقة باسم ط51 وهو المستمر ضا مع VB.net‏ 
ليكون بالشكل التالي: 


VB.NET 


Private Sub prEIntmsg (BYVAL msg As STEIN) 
Console.WriteLine (msg) 
ENC UD 


4. الوظيفۃ غخou‏ 


كما تعلمنا في المثال السابق فإننا نقوم بارجاع النتيجة من خلال ۲٥] 1 ۲١‏ ماذا لو اردنا 


اعادة نتيجة من دالة 7010 يتم ذلك باستخدام الدالة ألا0 بالشكل التالى: 


SLCaALLG TOIL SUN (ARE NiumbErl,y, INE nhnumoera2;. OUL IiNlL LOLA) 
ا‎ 


LOLA = RUMOEEL F"NUMOELA, 


Private Shared Sub sum (ByVal numberl As Integer, ByVal number2 As Integer, 
ByRef total As Integer) 

total = numberl + number2 
RING Sub 


الدالة السابقة الخاصة بالفيجوال بيسك هي الترجمة الصحيحة لكود ال #) »› ولكن لكي تعمل 
معك بصورة صحيحة في 11€ 50d‏ ¥ بد أن تستغني عن ١١‏ ٣إهط؟‏ » لذا سنقوم بالاستغناء عنها 


ابتداء من هذا الكود حتى يحين موعد شرح معناها وفائدتها . 
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وعند استدعاء الدالة يتم تمرير المتغير الذي نحتاج إليه لعرض النتيجة ايضا: 


liil LOSULL; 

SUMS, Cy OUE LESULL 
Console.Write (result) ; 
Console. ReadKey () ; 


Dim result As Integer 
SUM (5, ©, EESULE) 
Console.Write (result) 
Console. ReadKey () 


ولكن ما هو السبب الذي قد يدفعني لاستخدام هذه الطريقة ا ن اا 


ŞrEeLUurn 


الاجاية الابسط» هي انني لو اردت اعاده اڪتر من نتيحه متل ناتج الضرب والجمع و القسمة » فليس 


امامي حل سوى اعادة مصفوفة بالارقام وقراءتها هناك › الحل الابسط هو باستخدام OME‏ 


5. الارسال بالورجع ۶١٣ر‏ و الارسال بالقيوة 
byval‏ 


لنفترض المثال الخاص بعملية الطرح بالشكل التالي: 


VB.NET 


Dim x As Integer = 
Dim y As Integer 
Sub (xX, ¥) 


والدالة: 
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SLallcG TOIL SuUb(IRnE hüumbérly int nhnüumboeErdzê) 


{ 


HNUMODETIL = ‘nUMGEEL = HumMDErFZ; 
return numberl; 


VB.NET 


Private Sub [sub] (ByVal numberl As Integer, ByVal number2 As Integer) 
numberl = numberl - numberZ2 
Return numberl 

ENO Sub 


في الداله السابقة قمنا بتخيير قيمة 1إnumbe‏ » ولکن هل سيغير هذا من قيمة × التي ار سلتاهاء 
الإجابة هي بلا » هذا ما يعرف بارسال القيمة حيث نقوم في هذه الحالة بارسال قيمة × إلى الدالة 


الارسال بالمرجع 6/۸٥٤‏ هي الحالة التانية » في هذه الحالة يتم ارسال عنوان المتغير × في 


الذاكرة إلى الدالة › هذا ما يعني ان اي تغيير في ٥٣1‏ "٣1ا١‏ سيؤثر بالضرورة على المتخير ×. 


لكتابة الكود السابق بطريقة ۸٥٤‏ 6۷ نکتب الکود التالی: 


SlLaltilc YOL Sub (ref Int numberl, réf int nümberz2) 


ا 
LANL LESULL = AUMBDELL = HUMODEE2,‏ 
return result;‏ 


Private Sub [sub] (ByRef numberl As Integer, ByRef number2 As Integer) 
Dim result As Integer = numberl - number2 
Return result 

End Sub 


اللارسال بالقيمة يمكن تطبيقه فقط مع المتغيرات البسيطة» اما المتغخيرات المركبة مثل ا٣۲1‏ أ0 


فيتم التعامل معه 8/۸٥۴‏ افتراضيا... 
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6. الوصسفوختlںٽ Arrays‏ 
في هذا الدرس سوف نتعرف على المصفوفات وكيفية استخدامها وتعريفها. 
6. 1. ہا هي المصفوفات Arrajs‏ 


المصفوفة هي عبارة عن سلسلة من البیانات من نفس النوع › لتعریف ۸۲۲۵۷ من الارقام طولها د 


عناصر نكتب الكود التالي: 


CF 


IHL ARLaEEaAY = Ré INES, 


VB.NET 

Dim intarray As Integer() = New Integer (4) 

يبدا الترقيم في المصفوفات من الصفر وحتى 4 لقراءة احد عناصر المصفوفة نكتب كود مثل 
التالى: 


CF 
Console.WriteLine (intarray[31); 


VB.NET ا‎ 


ConSOoOLE.WEITtEéELineE (intarEay (3)) 


ولقراءة جميع العناصر يمكن استخدام حلقات التكرار بالشكل التالي 


for (int i = O; 1 < 5; 1++¥) 
Console.WriteLlLine (intarray [i11); 


VB.NET 


For 1 As Integer = 0 To 4 
Console.WriteLlLine (intarray (1) ) 
NEXE 
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6. 2. تكوين المصفوفات 


الطريقة الاسهل لادخال البيانات إلى المصفوفة بالشكل التالي مثلا: 


أو عن طريق حلقة تكرار ايضا › إلا ان هناك طريقة أخرى لادخال البيانات إلى المصفوفة بالشكل 


التالي مثلا: 
ڪو د ) CF‏ 
INCL. LRTCarFEAY = He IRELl {1.15, 2U, US FG‏ 
VB.NET 0‏ 
Dim intarray As Integer () = New Integer() {15, 20, 13}‏ 


6. 3. المصفوفات متعددة الأبعاد 


جميع المصفوفات السابقة هي مصفوفات احادية البعد أت ٣0أئمعمmاك‏ »مە » هناك انواع 
اخرى من المصفوفات خنائية او متعددة الابعاد أكت”0أئصمعمmاd‏ tiاMu‏ . هذا متال على مصفوفة 
ثنائية الابعاد - تسمى باسم- ×ا٣†Va:‏ 

CH 


int matrix = new int[3, 3]; 


VB.NET 


Dim matrix As Integer = New Integer (2, 2) 
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سيكون شكل المصفوفة بالشكل التالي (افتراضي) : 
000 
000 
00 0 


ويمكن ادخال البيانات إلى نقطة من المصفوفة بالتشكل التالي: 


CF 


int matrix = new int[3, 3l]; 
TOC (IMC 1 = OF, O € GC OFF) 
TOE IRL. T= Oy, o € SF. OFF) 
MaALCEIXlLy, Console.ReadLine (); 


Dim matrlx As Integer = New Integer (2, {} 
For 1 As Integer = 0 To 2 
For jJ As Integer = 0 To 2 
matrix(l, jJ) = Console.ReadLine () 
Next 
Next 


والطباعة بتنفس الشكل ايضا. 
6. 4. عمل Î o ns‏ 
يمكن عمل مصفوفة يحتوي كل عنصر منها على مصفوفة بالشكل التالىي: 


CF 


IHL lL] [| cComplexarray = new 1nt [5l ll} 


VB.NET 


Dim complexarray As Integer () () = New Integer (4) () 
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ويمكن الوصول لأي عنصر فيها عن طريق الكود التالي مثلا: 


CF 


Console.WritelLine (complexarray [11 [41]); 


VB.NET 


Console.WriteLlLine (complexarray (1) (4) ) 


وهنا ما يعني العنصر رقم 4 من المصفوفة الآو لى المو جودة ضمن المصفوفة complexarray‏ 


6. 5. ارسال و استقبال المصفوفات من و إلى الدوال 


يمكتنك عمل دالة لطباعة محتويات مصفوفة بالشكل التالى: 


SLaAEICG TOLL GEINC(ADRELI AFF) 
{ 
FOE (IME iU =2 OF 1 KG OEE. LENG, E) 
Console.WriteLlLine (arr [0]); 


Private Sub print (ByVal arr As Integer () ) 
For 1 As Integer = 0 To arr.Length = 1 
Console.WriteLine (arr (0) ) 
Nex 
End Sub 


لا تنسى طبعا انه يتم التعامل معها ۴١۲ر‏ افتراضياء لذا أي تعديل في الدالة سيؤثر على 


المصفوفة الآأساسية. 


فى حالة کون ال 3۲۲۵۷ هى ما نود اعادته من الدالة ١٤1۲١‏ نكتب الكود بالشكل التالى: 


STALL ARC ll] FEa30() 


{ 


int[] arr = new int [3]; 


FoF CNS 1 = Os Û € Fe E) 
و‎ Console.Read(); 
FETUENn aff} 
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الباب السابع 


وكونات اللغۂ الرئيسيہ 


Private Function read() As Integer () 
Dim arr As Integer() = New Integer(2) {} 
For 1 As Integer = Û0 To 2 


arr (1) = Console. Read () 
Next 
Return arr 
Eri FUNCEILOoT 


6. 6. خصائص الوصفوفات الرئيسية 


تحتوي المصفوهات على بعض خصائص ودوال قد تساعدك في العمل عليهاء اشهرها واكترها 


اتواه ` 

الخاصية 
Length‏ 
OEE‏ 
EVEL IES‏ 
MOSES TOS‏ 
Ek‏ 


الاستخدام 


تحدد طول عتاصر المصفوفهة 
تقوم بترتيب عناصر المصفوفه 


Reverse‏ تقوم بعكس ترتيب عناصر المصفوفة 
لتحويل المصفوفة إلى متخير نصي 
R٣٤‏ تحدد عدد الابعاد فى المصفوفة 


الجدو ل 7. 1. خصائص الفئة ۸۲٣۵7۷‏ 


Enumeration Jl . / 


اختصار ل - 5١10أ€۸1۷۳"€۲3‏ تحتوي على مجموعة من العتناصر تمثل حالات وقيم مختافة 


داخل البرنامج. 


ابسط مثال على ال ٤11۳‏ هو استخدامها فى حالة لموديلات السيارات › لنفترض لدينا 


ثلاث انواع من السیارات › ۲٥۷03‏ ۸ال و اخیرا ۴۱۸۲ » لو كنا نقوم بتخزينهم على شكل 
قيم 0. 1 و 2 فى قاعدة البيانات مثلا فإننا لا نريد ان تجبر المبرمج على ادخال رقم كل سيارة, 


بل يمكنه ادخال اسمها والذي سيتم ترجمته لاحقا إلى الرقم المناظر له. 
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ENUN CAFES 


{ 


LOVOLA = 
nissan 
flat = 


Enum cars 
LOVOLA 32 
nissan 
fiat = 

End: Enum 


يمكننا ايضا تحديد المساحه التي يتم تخزين فيها عنصر ال ١1۳‏ لاختصار المساحهة نضا »> یمکن 
تحديد النوع ٥ا6۷‏ كمتال على ذلك بالشكل التالي: 


enum cars : byte 
ا‎ 
LOVOLA = 
nissan 
flat = 


Enum Cars As 


LOVOLA = 

nissan = 

flidlL =2 
ENC: ENUM 
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الباب السابع 


وكونات اللغة الرئيسية 


الآن يمكننا استخدام الاسماء الجديدة في البرمجة بدلا من الارقام أو الرموز بما يكفل لنا سهولة 


STACLC YOL DEINEPLEICE{(CAES MYCE) 
[ 
TT (MVCaALE == CET. FLA) 
CONSOLE. WELTELINE (TEU, UOUOUOT YF 
else 1f (mycar == cars.nilissan) 
CONSOLES. WELILCELINE (FOO, UOO TS 
else 
Console.WriteLlLine ("40,000"); 


VB.NET 


Private Sub GrintPEice(BYVaL mycar AS Cars) 


ITE MmyCar = CEES. ELaAT Then 
CONSOLE. WELEELINE (TEU, UUO™) 
Elself mycar = cars.nissan Then 
CONSOLE. WELEELINE ("IU , UUOO™) 
Else 
CONSOLE. WELTELINE (TIO, UOT) 
Nale Is 
En. Sub 


هكذا نجد انتا نستخدم اسماء واضحة رغم ان القيم الفعلية المخزنة هي من نوع € ا/0. 


اوضح ما يمكنك تخيله كضفائدة لل ٣٣1۳‏ هي دوال أ۸ الخاصة بالويندوز › في الواقع انت 


ترسل بيانات متل 00 ×۸127 للدوال » لكن في الواقع تجد نفسك ترسل بعض الأسماء الواضحة 


مثل أc2٤0ا‏ كد لالة لمتخير ما بدلا من الرموز المعقدة والتي سيصعب عليك فهمها دون و جود 


قاموس لترجمة الرموز . 
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Structures maكڪlرتll‎ .8 


ال Struct ۲e‏ او كاc iru‏ هي انواع مخصصة من البيانات يمكنك انشاءها تستطيع حمل اي 
خصائص علی شکل متغیرات او حتی دوال وخلافه › ابسط مثال على أ٣ S٣۲۷‏ هو مثال السيارة › لكل 
سيارة نجد موديل الصنع واسم الماركة ورقم اللوحة مثلاً »> يمكننا كتابة ال أ٤‏ ا٣5‏ بالشكل 
التالي مثلا: 


SEEUCL CaF 


{ 


pUbLILIC INT CaEFNUmMGEE; 
pBUDLIE INE Ver; 
COUDLILC GLEING TACTOEY, 


VB.NET 


SLETUCTUES CaT 
Public carNumber As Integer 
Publlc year As Integer 
PUDILG TICLOEY A8 SFI 
End SLEUCTuUrFE 


والآن عندما نريد تعريف نسخة من (سيارة) فإننا نقوم بتعيين خصائصها بالشكل التالي: 


Car ahmedcar = new Car(); 
ahmedcar.carNumber = 1000; 
anmedCar: factory = "Nissan"; 
ahmedcar.year = 2007; 


VB.NET 


Dim ahmedcar As New Car () 
ahmedcar.carNumber = 1000 
anmedCarE. FaclLory = Nissan" 
ahmedcar.year = 2007 


يمكن ان يحتوي ال آأ٣لا٣أ]آS‏ على عنصر هو الآخر بدوره آأ٣۲1 5S]‏ » لو افترضنا ا۲1 ]اS‏ 
لرخصة السير يحتوي على اسم المستخدم والستوات المتبقية لانتهاء الرخصهة مغلا > فسيکون ذلڪ 
بالشكل التالى: 


127 


الباب السابع وکونا اللغۃ الرئیسیہ 


SEFUGE LICEenéCS 


{ 


BUGITIE SEEING USEENaNE; 
PUBDLLG INE VEQESTOEINLSD} 


VB.NET 


Structure Licence 
Public UserName As String 
Public yearsToFinish As Integer 
SEEUCEUES 


والآن لو اردنا ان نجعل رخصة السير جزء من خصائص السيارة » فسيتم ذلك بالشكل التالي: 


SCEUCT CaF 

{ 
PUBLLG ANE CAENUMGEE; 
GuUDLIG 10l vor; 
PUbLIC SLTEING TaCTOEY 
pBUDLIEC Licence. CaFL1cence; 


VB.NET 


SLEUCLUES CAE 
Public carNumber As Integer 
Public year As Integer 
FUDIILG TaACLOEY A8 SLEING 
Public carLicence As Licence 
EC SLEFUCLUEG 


و لتحديد خصائص اي سيارة ستنكتب كود بالشكل التالي: 


Car ahmedcar = new Car(); 
ahmedcar.carNumber = 1000; 


ANMECOCAFEACLOLY 3 ISSA, 

ahmedcar.year = 2007; 
ahmedcar.carLicence.UserName = "Ahmed Gamal"; 
ahmedcar.carLicence.yearsToFinish = 3; 
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VB.NET 


Dim ahmedcar As New Car () 
ahmedcar.carNumber = 1000 


ANMEQACAEF.EACTOEY = NISSAN" 

ahmedcar.year = 2007 
ahmedcar.carLicence.UserName = "Ahmed Gamal" 
ahmedcar.carLicence.yearsToFinish = 3 


StruCt J| Jخاد انشاء الدوال‎ .1 .8 


يمكننا فى داخل اي أ٣٤‏ ۲1ا5 انشاء دالة لتقوم ببعض العمليات على هذا ال S۲1٣‏ 
ادسط متال على ذلك لو اردنا عمل دالة ۲٤۲1١٥87۷‏ لتجديد رخصة السير» يمكن فى هذه الحاله 


كتابة ال ا٤1٣‏ ]ا5 بالشكل التالي: 


struct Licence 
{ 
public STtTInG USEENaméê?; 
BUBLLG Int yYearsLloOFTLNLSD} 
public void renew(int perilode) 
{ 
yearsToFinish += periode; 


VB.NET 


Structure Licence 
Publl1c UserName As String 
Public yearsToFinish As Integer 


Public Sub renew (ByVal periode As Integer) 
yearsToFinish += periode 
ENC SUD 
ENQd SLEEUCTUrEE 


وهكذا يمكننا تحجديد فترة الرخصة عن طريق الوصول إلى هذه الدالة مباشرة. 
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الباب السابع 


وکونات اللعۂ الرنیسیہ 


في التطبيقات الفعلية في العادة لا يسمح لك بالوصول إلى العناصر مباشرة إلا عن طريق دالة 


وذلك لمنع ادخال بيانات مغلوطة مثلا نھگںن عمل دال C626‏ لتقا ال 0غ8 ملا 


ويعد انشاء نسخة من ال آا۲1Cc[]اS‏ يتم استدعاء هذه الدالة لملئ البيانات حيث لن يسمح لڪ 


برؤية باقي المتغيرات. 


هناك حل آخر باستخدام ٣0ا٣۷ 0S٣‏ او المشيد » حيث يمكنك وقت انشاء نسخة من ال 


SU‏ تمرير البيانات المطلوبة › يتم كتابة المشيد بالشكل التالي: 


LLCEénNCêe 


SLEEUCT LAE 

{ 
private int carNumber; 
private int year; 
private STEING Laclorvy; 
private Licence carLicence; 


OUDLIE CaF (IRE Dp: CAE NUMBET, TEL pV, BC FING pP_TaclLorv, 


p_carLicence) 
{ 
carNumber = p_carNumber; 
TACEOLY = DBD TACEOEV;, 
year = p_year; 
carLicence = p_carLicence; 


VB.NET 


SLEUGOLUEES CoOL 
Private carNumber As Integer 
Private year As Integer 
Private factory As String 
Private carlLicence As Licence 


Public Sub New (ByVal p_carNumber As Integer, ByVal p_year As Integer, ByVal 


p_EFacliory A8 SLIEING, BvvValLl p6  carlLicencé Ag Licence) 
carNumber = p_carNumber 
TaACEOLIY = BD TACTOEY 
year = p_year 
carLicence = p_carLicence 
Erd Sub 
Enû SEFuCTUrFe 


احظ اننا حولنا الوصول إلى المتخيرات ılكgوj Pr1Vate‏ يحيث ل يمكن الوصول له خار ج ال 
ح٣1٣‏ اS»‏ معرفات الوصول ستكون احد مواضيعنا حينما ندخل في عالم ال 00۲ لذا لا تتعجل 
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ولكن يكفي ان تعلم ان 11٤٥‏ اام تجعل قابلية الوصول من اي مكان إلى المتغير او الدالة › اما 
private‏ فلا یمکن الوصول لها إلا من داخل ال ا٣۲1‏ ]اS.‏ 


Reference glgiill g Value عlgiill‎ .9 


لو عدنا مرة أخرى إلى درس انواع المتغيرات » سنجد ان معظم انواع البيانات مشتقة 
من ٥م1۷‏ عا معنى ان هذه الأنواع مشتقة من 1۷٥€‏ عuداأةا‏ ان كل متغير منها يمثل نفسه» فلو 


افترضنا مثالا بالشكل التالى: 


int x=D5; 

int y=x; 

=1; 
Console.WriteLlLine (x); 
Console.WritelLine (y); 


Dim x As Integer = 5 
Dim y¥y As Integer = x 
ls 
Console.WriteLlLine (x) 
Console.WriteLlLine (y) 


سنجد ان كلا من × و ۷ له قيمة خاصة به » برغم اننا ساوينا بينهم فى البداية › السبب اننا فى 


جملة ×= فهم المترجم ان ينشاً متغير ۷ يحصل على قيمة × . 
نفس هذا النظام ينطبق على المتغيرات الاساسية » على ال ا٣1١ 5S]‏ ايضا... 


الآنواع من نوع Sك€م۲۷‏ عcعReferen‏ مثل ال ككةا€ لا ينطبق عليها المثال »› لنفترض متال السيارة 
بالشكل التالي: 
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class car 


TTL CaFNUMGEE?; 
string carName; 


VB.NET 


LRT OT 
Private carNumber As Integer 
Private carName As String 
ERQ Class 


والآن سنكتب نفس المثال السابق مع ال ا١‏ 1» سيكون المثال بالشكل التالي: 


Car x = new 

Xš. CEFNUMDEE = 

LAE Y= XK, 
Console.WritelLine (x == vy); 


VB.NET 


Dim x As New Car () 
x.CarNumber = 

Dim y As Car 
Console.WriteLlLine (x 


لو كنت تظن ان المتغير ۷ يحتوي على نسخة من C3٣۲‏ يمكنك التعديل عليها فأآنت مخطاء إذ ان 
يمکنڪ التآڪد من ذلڪ من خلال ڪود مثل التالي: 


Car x = newCar (); 
LE Vy و‎ 


x.CarNumber=1; 

V4CAENUMDEL, 3, 
Console.WritelLine (x.carNumber) ; 
Console.ReadKey () ; 
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Dim x As Car = 
Dim ¥ As Car 


xX. CAaArNUmMbEEFE 

y.CcarNumber = 
Console.WriteLlLine (x.carNumber) 
Console.ReadKey () 


لعمل نسخة حقيقة من ال ككها€ المسمى C٤2١‏ ¥ بد من تطبيق »€)10٥1٥‏ قم بجعل C١4١‏ 
585 طق أل 116۲1206 102516 وك نكتادة دالة آل .C16018‏ 


10 . الوقارنات 


لنعد مرة آخرى لنقطة البداية » حيث يستخدم اغلب المبرمجين المعامل = آو المعامل == في 


# للمقارنة» ابسط امثلة ذلكڪ: 


تكون القيمة المحصلة ٠1ا1۲‏ في حالة التساوي فيما تكون ۳۵156 في حالة عدم التساوي › 
ونقصد بالتساوي هنا التساوي الكامل مثلا : 5= ."Ahmed"="Ahmed" gi 7=7/ gı‏ ولکن 


هذا ينطبق فقط على الانواع البسيطة. 


ملا حظة 


الأنواع البسيطة هي الانوع متّل 1n , ا0٣3 , S٣1٣3‏ وغيرها... 


سنواصل شرحنا مع المثال التالي ايضا: 
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gSElIng a4 = hew SLrFINnG (ner Charl] { Th, 'er', IT, 
SÎEInNG bb = new String (new ChafFl] { 'h',;, 'e"';, "IT, 
Console.WritelLine(a == bb); 


VB.NET 


DIAM AU ET NON  OCEIDT NET LRAT FE, Oy, FI, FICE, OC) 
DIM GOG AE NET SETTING (Net CHEF) {FOTC, FEC, FIL, FIC, POO) 
Console.WriteLlLine(a = b) 


object cC = a; 
object d 
Console.WriteLine (c == dQ); 


VB.NET 


Dim c As Object = a 
Dim d As Object = bb 
COnNS01€6. WELTELIhNE (E 


السطر السابق سيخيب ظنك للاسف › لإن الناتج سيكون ع215 » الحل في هذه الحالة باستخدام 
المعامل ¶JuUua1S‏ £ 
CF‏ 


CONSOLE. WELTteLinée(C.EGUaALS{QA)) 


VB.NET 


Console.WritelLine (c.EGuals (Ad) ) 


استخدام آخر للمعامل 215ا للمقارنة بين ال كأ٣ S٣۷‏ مثلاً » لنفترض المثال التالي: 


SLEUCTL CEE 


{ 


BuUbDLIG. INE CaFNumGer; 


و 
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GUOLIEG SLEFUCLEUTe Car 


public carNumber As Integer 
End .STTEUCTUEe 


والآن» لو قمنا بتعريف المتغخيرات التالية: 


Car x = new Car(); 
xX. CAENUMDEr =| 

AT yy, 
Console.WritelLine 


Dim x As New Car () 
x.CarNumber 

DIM YY AS Ca 
Console.WriteLlLine (x 


ما هو الناتج الذي تتوقعه» المفترض ان تكون الرسالة المطبوعة هي ع1۲1 995 للاسف هي حتى 
ليست ۲۸15٥8‏ لاإن هذا سیعطیڪ خطا. 
الحل الصحيح هو باستخدام المعامل 215ا بالطريقة التالية: 


CF 


Console.WriteLine (x.Equals(y)); 


VB.NET a 


5 
في حالة تعريف ٣|558‏ » يمكن استخدام == ايضا بالشكل التالى: 


Console.WriteLlLine (x.Equals ( 


CF 


Console.WriteLlLine (Classl==Class2) ; 


VB.NET 


Console.WriteLlLine (Classl = Class2) 
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أو 21ا٤‏ كما في المتال السابق» هل تعرف لماذا يكون 


Mem ory ٩ 1٣ا1٥ الناتج دائما‎ 
۸ 


الاجابة المنطقية لهذا الموضوع هي أنك ستخبرني ان 
الكائنان يشيران لنفس المكان في الذاكرة 


لذا كان الناتج ع ا٣"‏ بالشكل المقابل ۳ 


وهذا صحيح › لنفترض المتال التالي: 


Car x = new Car(); 
Car ¥ = new Car(); 


X.CAENUMDELZ I, 
y.carNumber = 1; 


Console.WritelLline (x==y); 
Console.ReadKey () ; 


Dim x As New Car () 
Dim y As New Car () 


x.CarNumber = 1 
y.CarNumber 1 


CONSOLE. WELLELINE SE 
Console. ReadKey () 


ستكون النتيجة هي ... ١315٥‏ برغم ان الخصائص الداخلية لهما واحدة › الحل بكتابة دالة 
بالشكل التالي: 


bool 1sthesane (CaF Cl, Caf €2) 


{ 


LE` (Cl. CAarNuüumMber == C2. CAENUMbEE) 
return tLrue; 
return false; 
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VB.NET 


Private Function isthesame (ByVal c1 As Car, ByVal c2 As Car) As Boolean 
lf cl1l.carNumber = c2.carNumber Then 


Return True 
El LF 
Return False 
FURCLLOT 


لكن ماذا لو كنا نرغب فى عمل نسخة جديدة من المتغير ؟ 


فى هذه الحالة نستخدم مبداً C10۸٥‏ بالشكل التالى: 


UOCODVACEE GCL) 


Car newCar = new Car(); 
newCar.carNumber = c1.carNumber; 


return newCar; 


VB.NET 


PriIvalée FiüncClLlon dOCOpY (BYVAL Cl K&S Cart} A Cak 
Dim newCar As New Car () 


newCar.carNumber = c1.carNumber 
۲ 


Return newCar 
ENQ. FURCLILoON 


في كثير من العناصر الاساسية تجد الدالة C10١8‏ موجودة بصورة افتراضية › اي فئة مشتقة من 
الواجهة ع 1اطaع٣0تا٣]‏ ستجد هذه الدالة جاهزة للاستخدام مباشرة» لو كنت انت من تقوم 
ببرمجة الفئة ككها€ وقمت باشتقاقها من الفئة السابقة فستجد الدالة ٤101٥‏ موجودة لتقوم 
ببرمجتها بحيث تكون الفئة الخاصة بك على المعايير القياسية » حيث يستطيع اي مستخدم 
لفتتك من عمل C101١٥€‏ لها مباشرة. 


Nullable Types .1l 


فی عرف المتغيرات التقليدية تعد القيمة ULL‏ غير مقبولة اطلاقا فالمتخير من 


نوع Boolean‏ مثلا لا بد ان يحتوي على ع٥1۲1‏ أو ٥5اه‏ "۲ »المتغیر ح٣610‏ لا بد ان يحتوي 
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الباب السابع وكونات اللفة الرئيسية 


على ارقام ما بين الصفر و 32767 مثلاً ... وهكذا » في حين كانت القيم النصية مثلاً S۲1١3‏ 
تستطيع استيعاب القيمة ۸111 لإنھا من نوع €٤۲۵۸ع؟eعr.‏ 

لكننا فى بعض الاحيان نضطر لأن يحمل متغير منطقي 8001٠۵١‏ قيمة (¥ قيمة - u11ہ)‏ 
بمعنى اننا غير قادرين على تحديد فيما إذا كان ٥٣آ‏ أو ع215" » ابسط امثلة ذلڪ هي 
المشكلة التقليدية التي تواجه اغلب مبرمجي قواعد البيانات في حالة عدم ادخال المستخدم لقيمة 
في حقل ما وليكن حقل (متزوج)» ولنفرض ان المستخدم لم يحدد كون الشخص متزوجا من 
عدمه » في هذه الحالة سيظل الحقل يحتفظ بقيمة ١111‏ وهو ما كان يستلزم عمل Check‏ 
على انها ليست 11نا" قبل وضعها في اي متغخير من نوع 01ط مثلا. 

لكن ومع الاصدارة الثانية من )ا0 ۴am eW‏ tع.‏ اصبح بالامكان تعريف متغير مخصص ليسمح 
بتقبل القيمة ١.111‏ اضافة للقيم الاساسية له > كما في المثال التالي: 

ڪو د | CF‏ 


VB.NET 


Dim ismarried As System.Nullable (Of Boolean) = Nothing 


فى هذه الحالة يمكننا اسناده لقراءة قيمة مباشرة من قاعدة البيانات دون القلق من كون القيمة 


الحالية هى 1 11.. 
هناك عدة طرق اخرى لتعريف متغير يقبل 11ا" مثل الطريقة التالية ايضا: 


CF ) كوهد‎ 
Null Lable<bool> HNüULLableBoolLl = NULL; 


VB.NET 


Dim ismarried As System.Nullable (Of Boolean) = Nothing 


ت ان ۶ هقفلا اشتصار تل 666۲6 المتى + 1> 6.1111516 75 وهو ما ستتخرف 


على معناه فى آأجزاء قادمة من الكتاب. وينفس الطريقة فيما لو اردنا تعريف دالة يكون ال 


return‏ لا eاabااNu‏ فسیکون ذلک بالشکل التالی: 
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الباب السابع وکونات اللغۃ الرئیسیہ 


pübolIlIe boOo0LlL? FüuncltLionNamêe (0) 


{ 


} 


VB.NET 


Public Function functionName () As System.Nullable (Of Boolean) 


Enid FüURtCTLILon 


11. 1. خصائص ال eاطھااu»‏ 


اهم خصائص ال ع€|0ه|األا" هي خاصية ع 525۷211 والتي تحدد فيما إذا كان المتغير به قيمة 


ام انه يحتفظ بقيمة ١.111‏ بالشكل التالي: 


(1smarried.HasValue) 


VB.NET | e 


IF Lsmarrflied.HasValue. Then 


EME ITF 
يمكن كتابتها باستخدام وسائل المقارنة ايضا != أو <> في الفيجوال بيسك بالشكل التالي:‎ 


ڪو د ) CF‏ 


Lf (ismarried != null) 


VB.NET 


TE LSmarFiod. <> NotHInG Then 
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الباب السابع وكونات اللفة الرئيسية 


ل تنس أن 1113 ١"0‏ خاصة بالفيجوال يسڪ بدلا CE MM ENE‏ 


11. 2. الوعارل ؟؟ 


يمكن استخدام المعامل 5+ مع القيم ال هاطةاألا" لكي نخبره بوضع قيمة ما في حالة 


و جودها ب 1 اا١‏ لتفترض متال حاله الزرواج السابق » وستفترض ان اي شخص لم يقم بادخال 
بیانات الزواج فهو شخص اعزب يمعنى ان القيمة ساتصبح False‏ مباشر ة»› سنقو م يكتابة الكود 


التالي من اجل ذلڪ: 


CF 


1nt? 1smarrilied = returnvaluefromdatabase() ?? false; 


VB.NET 


Dim ismarried As System.Nullable (Of Integer) = IIf (returnvaluefromdatabase () 
Nothing, [False], returnvaluefromdatabase () 
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الفنات ووقدمۂ إلى 
البروجہ کاننیہ التوجہ 


الباب التامن الفنات و مقدوھہ إلی البرھجۂہ کاننیۂ التوجہ 


1 . وقدهة إلى الفنات كعClass‏ 


كما لاحظنا في دروسنا السابقة › فإن البرنامج المنشاً تحت ١0|أiaاممA‏ ماconso‏ يحتوي على 


فئة واحدة مسماه باسم ۴۲١۴8۲۳‏ ككها€ تحتوي بداخلها على دوال ومتغيرات واجراءات وطرق ... 


فى الواقع فالبنية الاساسية لأآي برنامج يطبق مبادئ 00۲ هو الفئة ككها€. 


يمكن ان يحتوي البرنامج على عدة فتات » ويمكن ان تحتوي الفثهة ایضا على عدة فتات بداخله › في 


حالة رغيبتك فى عمل كا٣‏ متنفصل يمكنڪك اضÃlة .Project ja New Class‏ 


يتم تعريف الفئة باستخدام الكلمة المحجوزة 1255ع ومن ثم اسمه › يتم تعريف مكوناته بين إ ) 
في السي شارب أو من بعد جملة التعريف حتى ككها€ ١٣ع‏ في أع١.۷/8ء‏ ستقوم بادراج فئة جديدة 
و نسمیها باسم 72۲50۸ ستجد الکود التالی موجودا بصو رة افتراضية: 


namespace ConsoleApplicatilion4 
{ 

CLASS Person 

| 

} 


VB.NET 


Namespace ConsoleAppl1catilion4 
Class Person 


ENÛ CIASS 
End Namespace 


الجزء الأول الذي يحدد ال €٥522ع"32۳١‏ ضروري » حيث يعني هذا ان جميع الفئات ك€ءكها) 
الموجودة تحت نفس ال ١.4۳8523٤٣8‏ يمكنها رؤية بعضها الآخر › لذا سنتمكن من التعامل مع 
الفئة الجديدة من خلال 41۸" الخاصة بنا في الفئة الاساسية المسماه .٥ ۲00۲١21١‏ 

ابسط مكونات أي فئة C1355‏ هي المتغيرات › يمكننا مثلاً اضافة بيانات الاسم الأول والأخير 


والعمر داخل الفئة C1155‏ بالشكل التالي: 
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الباب التامن الفنات و مقدمة إلى البرمجۃ كائنيۃ التوجہ 


l453 PErSoOn 


pBUDLIC SLEING FlrFSTName; 
public string LastName; 
PADLLS IRE Loe; 


VB.NET 


CLã§3 Person 
PUDLIC FIFE ENEME AS SLCTING 
Public LastName As String 
Public Age As Integer 

End CLass 


الآن يمكن تعريف عدة كائنات كا٤‏ 6زط0 من هذه الفئة بالشكل التالى مثلاأ: 


Person Ahmed = new Person(); 
Ahmed.Age = 15; 
Ahmed.FirstName "Ahmed"; 
Ahmed.LastName "Gamal"; 
Person All = new Person(); 
0ض فووا‎ 

Al. FLFEFSENamMeS = Amor; 
Alli1.LastName = "Gamal"; 


VB.NET 


Dim Ahmed As New Person () 
Ahmed.Age = 15 
Ahmed.FirstName = "Ahmed" 
Ahmed.LastName = "Gamal" 
Dim All As New Person () 
All1.Age = 15 
Al1.FirstName = "Ahmed" 
All1.LastName = "Gamal" 


Person [|] MyEmpolyee = new Person[3]; 
MyEmpolyee [0] = new Person(); 
MyEmpolyee 


[0].FirstName = "Ahmed"; 
MyEmpolyee [0] .LastName = "Gamal"; 
[0] 


MyEmpolyee .Age = 15; 
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الباب التامن الفنات و موقدوۃ إلى البرمجۃۂ کائنیۃ التوجہ 


VB.NET 


DIım MyEmpolyee As Person() = New Person(2) {} 


MyEmpolyee (O0) = New Person () 

„FirstName = "Ahmed" 
MyEmpolyee . LastName = "Gamal" 
MyEmpolyee .Age = 15 


كما قلنا في حالة ال ا٤1٣‏ اS»‏ فإن بامكاننا ایضا تعريف الدوال داخل الفئة 55Sه1[a)»‏ ستقوم 


ببرمحهةه دالة تعيد لنا الاسم الكامل لشخص معين » ستكون بالشكل التالي: 


public string getFullName () 
{ 


return FirstName + LastName; 


} 


VB.NET 


Public Function getFullName () As String 
Return FirstName + LastName 
End  FuncCETIoR 


Constructors Glaugll .1 . 1 


عندما نقوم بتعريف () ۶81۲501 1٥»‏ فإن هذا يعني اننا نقوم بتشغيل الدالة ال 
UCtOF‏ ا0 وهي الدالة التي تعمل مع تشغيل اي نسخة من البرنامج › افتراضيا تکون هنه 
الدالة خالية ويمكننا وضع بعض الاوامر فيها التي اهاوق اتاء فة > لخرض فلا رسالة 


تخبرنا بانشاء نسخة جديدة من الفئة C1256‏ : 


New 
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الباب التامن الفنات و مقدمۃ إلى البرمجۃ كائنيۃ التوجہ 


publl1c Person () 


{ 


Console.WriteLine ("new object"); 


} 


VB.NET 


Public Sub New () 
Console.WriteLine ("new object") 
End Sub 


یمکن نضا ان يستقبل ال C0 ۸5۲1٤0۲‏ بارمیترس› فمثلا لجعل ا ل۲ Cons ۲ u0‏ يستقبل الاسم 
الأول مع تعريف الاوبجكت الجديد » فسيكون ذلك بالشكل التالي: 


public Person (string userfirstname) 


{ 


FirstName = userfirstname; 


} 


VB.NET 


Public Sub New (ByVal userfirstname As String) 
FirstName = userfirstname 
ENC. SUD 


ولعمل نسخة جديدة سيتوجب علينا كتابة الكود التالى: 
E:‏ 


Person MyEmpolyee = new Person ("ahmed") ; 


VB.NET 


Dim MyEmpolyee As New Person ("ahmed™) 


Destructor ûlgaدھمرلl‎ 1 


عکس ال 0S۲ ٤0۲‏ يتم اطلاق هذا الحدث مع انهاء استخدام ال ٤٤ع‏ ز06 لاصدار صوت Be۴٥‏ 


مثلاً مع انهاء البرنامج: 
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الباب التامن الفنات و مقدمةۃ إلى البرمجۃ كائنيۃ التوجہ 


~Person () 


( 


Console. Beep (); 


1 


VB.NET 


Protected Overrides Sub Finalize ()‏ 
End Sub‏ 
نستفید من ال 0s) ٣0۲‏ في تنفيذ بعض العمليات قبل تدمير الكائن ا٤٥زط0‏ تماماء احياتا ما 
نحتاج إلى مسح جميع المتغخيرات المرتبطة به في الذاكرة وهو الاستخدام الاشهر لهذا الحدث › 
ايضاً يمكن استخدامه لتغيير العدادات مثلاً والتي تقوم بعد النسخ من فئة معينة. 


this v 


لتوضيح مفهوم الكلمة المحجوزة 115 ] في السي شارب» سنعود إلى المتال في الدرس 
السابق مباشرة › والذي قمنا فيه بعمل 0٣S۲ ٣0۲‏ بالشكل التالى: 


public Person (string userfirstname) 


{ 


FirstName = userfirstname; 


} 


VB.NET 


Public Sub New (ByVal userfirstname As String) 
FirstName = userfirstname 
End Sub 


public Person (string F1rstName) 


{ 


FirstName = FirstName; 


} 


148 


الباب التامن الفنات و مقدمةۃ إلى البرمجۃ کائنيۃ التوجہ 


VB.NET 


Public Sub New (ByVal FirstName As String) 


FirstName = FirstName 
End Sub 


في هذه الحالة للاسف سيفهم الكومبايلر انك تجعل 2۳٣٥‏ ا5٣1"‏ البارميتر يساوي نفسه »› ولن 
ینظر إلى 2۳٥٩‏ ا5٣۲1‏ كمتغير ضمن الاوبجكت . لتعريف الكومبايلر بإنك تقصد ان المتغخير 
الموجود في الاوبجكت = البارميتر المرسل سنستخدم الكلمة 115ا في #€ أو عا في ۷8.١٤‏ 


والتي ستشير إلى المتغير الموجود في الأو بجكت الحالي 


public Person (string FirstName) 


{ 


this.F1irstName = FirstName; 


} 


VB.NET 


Public Sub New (ByVal FirstName As String) 
Me.FlirstName = FirstName 
EIQ. SUD 


حتى فى الحالة السابقة التى تطرقنا لها فى الدرس السابق › فإن استخدام 115ا سيكون متناسب 


دائما > ايدسط اسباب ذلك هو اظهار قائمة بالعتاصر الموجودة فى الاأوبحكت وقت البرمحة منك 


اللحظة التي تكتب فيها ۸15ا. 
3. التعرف على ء1غ٤اه2عغ٤كs‏ 


لاحظنا في الدالة ۳31١‏ الموجودة اساسا في البرنامج اننا نستخدم الكلمة ٥1ا2‏ اك في ال 


#اضافة لمناظرها 5۸12۲٥8٩۵‏ في ال ۷/6.١٥‏ » فما معنى هذه الكلمة ؟ 


الكلمة 1٤٣‏ 2ا5 والتي يمكن استخدامها مع الدوال او الفثات او حتى المتغيرات تعني ان 
هذا المتخير او الدالةه يتم الوصول لها من على مستوى ال C1455‏ مباشرة ولیس من مستوى ال 


ا)ە‌زاە» لنفترض المٹال التالی الخاص ب ٥٥١۲۹0۸‏ 
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الباب التامن الفنات و مقدمۃ إلى البرمجۃ کائنيۃ التوجہ 


l453 PErSoOn 


pBUDLIIC SLEING FlrFSTName; 
public string LastName; 
public int Age; 

SLSELG GUDLIE DANL GOULET, 


VB.NET 


C1495. Person 
Public FirstName As8 SlCIEINg 
Public LastName As String 
Public Age As Integer 
Publlic Shared counter As Integer 
ENT CIT 


ولنفترض اننا كتبنا الكود التالي مثلا: 


PErSOnN MYyEMEOLYyeEeG. = new PErSOnN (J? 
MyEmpolyee.Agêe = 15; 
MyEmpolyee.counter 


VB.NET 


Dim MyEmpolyee As New Person () 
MyEmpolyee.Age = 15 
MyEmpolyee.counter 


للاسف لن يكون هذا الكود ضح حا > حیث ان ٣٥0۱ا‏ هو متغير ٤1ا2ا5‏ ولذا تتم قراءته 


مباشرة على مستوى الفئة ككة ا بالشكل التالى: 


Person MyEmpolyee = new Person(); 
MyEmpolyee.AgGe = 15; 
Person.counter = 3; 


VB.NET 


Dim MyEmpolyee As New Person () 
MyEmpolyee.Age = 15; 
PEFSON:COUNTLEOT 
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الباب التامن الفنات و مقدمة إلى البرمجۃ كائنيۃ التوجہ 


لو قمنا بتعريف 0٥6٤‏ جديد من نفس الفئة » وقمنا بعرض قيمة ال ٣٥ا١ c01‏ الخاصة 
به من داخل الفئة C1455‏ سنجد انها 3 مباشرة » ذلك ان المتغير -٤٥٤1ا23ا5>‏ يتم تعريف نسخة 


واحدة منه على مستوى الفئة 355| لجميع الكائنات كا٣‏ 006 التي يتم عملها منه. 


متال على الاستفادة من هذه الخاصية هى خاصية العدادات» والتى تقوم بعد الاو بجكتس التى ننشآها 
من هذا الفئة ككةا)» سنضع الكود الاضفة فى ال ١0ا٣‏ ل۲۷٣أك/0)‏ فيما نضع كود النقص في 


: Destructor 


CLASS Person 

{ 
GubLIC SCTING FLILESCNaAME; 
pBubLICG strIhg LastName} 
public int Age; 
STaEIC SUbILE INL Councer; 
public string getFullName () 
[ 


return FirstName + LastName; 


publlc Person () 


{ 


countert+t; 


} 


~Person () 


{ 


counter=-~—; 


} 
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الباب التامن الفنات و مقدمة إلى البرمجۃ كائنيۃ التوجہ 


VB.NET 


Class Person 
PUDLIILIG FirstName AS SETFING 
PUBLIC LastName A48 SLING 
Public Age As Integer 


Publl1c Shared counter As Integer 


PUDILIIG Funielion GelEFULLName () As SEFING 
Return FirstName + LastName 
ENC FURCTIGN 


Public Sub New () 
CoN LET S | 

ENC, Ub 

Protected Overridêss Sub Fina Lizé() 
I 


COUN EEE = | 
FINALLY 
MyBase.Finalize () 
e ES 
ENG: SUD 
End CLASS 


والآن ستقوم بانشاء عدد من الكائنات » ومن ثم نقوم بعرض قيمة العداد: 


Person MyEmpolyee = new Person () 
Person MyEmpolyee2 = new Person ( 
Person MyEmpolyee3 new Person ( 
Person MyEmpolyee4 new Person ( 
( 
َ 


J) 
J۶ 
J); 
5 
) 


Person MyEmpolyeeS = new Person(); 


Console.WriteLlLine (Person.counte 


4 


VB.NET 


Dim MyEmpolyee As New Person () 
Dim MyEmpolyee2 As New Person () 
Dim MyEmpolyee3 As New Person () 
Dim MyEmpolyee4 As New Person () 
Dim MyEmpolyeeS As New Person () 
Console.WriteLlLine (Person.counter) 


والآن لو افترضنا الكود التالي: 
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الباب التامن الفنات و مقدمة إلى البرمجۃ كائنيۃ التوجہ 


CH 


Person[|] MyEmpolyee = new Person[5]; 
Console.WriteLlLine (Person.counter) ; 


VB.NET 


Dim MyEmpolyee As Person() = New Person(4) {} 
Console.WriteLlLine (Person.counter) 


ل١‏ تتوقع ان الناتج سيكون 5 » للاسف توقعك ليس في محله » والسبب ان ايا من نسخ 


yeeاMyEmpo‏ لم يتم انشاءه بعد» الحالة التالية هي من ستعطيك الناتج 5: 


Person[| MyEmpolyee = new Person[5]; 

TOKE (INT lL OE Û & Be IE) 
MyEmpolyee [0] = new Person(); 

Console.WritelLine (Person.counter) ; 


VB.NET 


Dim MyEmpolyee As Person() = New Person(4) {} 
For 1 As Integer 0 To 4 
MyEmpolyee (0) New Person () 
Next 
Console.WriteLlLine (Person.counter) 


Static Class .1 .3 


منذ 2.0 Framewrok‏ etم.‏ تم اعتماد مبدا ال ككها€ ها5 وبطبيعة الحال فإن ي Static Class‏ 
لا بد ان تكون جميع المتغيرات والدوال فيه من نوع 5121٤٥٤‏ اضف إلى ذلك فإنه ليس من 


المنطقى تعريف ا٤٤00‏ من هذا الفئة 355ا باستخدام€۷.. 


في هذه الحالة يمكن استخدام الفئة 355ا ودوالة مباشرة › ابسط امثلة هذا ال55ةا€) هي 
×>80 5298 5 والتي يمكن استخدامها مباشرة دون تعريف نسخة منها. 


CF 


MessageBox. Show (“Welcome”) ; 
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الباب التامن الفنات و مقدوھۃ إلی البرمجۂۃہ کائنیۃ التوجہ 


VB.NET 


MessageBox. Show (“Welcome”) 


OverLoading Jييوحتلناl اعادة‎ .4 


من اهم مبادئ ال 00۲ هى تطبيق مبدئ ال 0۷6۲۱0301١8‏ » حيث يمكن تسمية عدة طرق او 


Windows Jı ga MessageBox. SHOW () ةڌl هي‎ 0۷۵1031٣8 ابسط مثال على عمليات ال‎ 


Forms 


ٿو جریت ستجد هده الآوامر مثلا: 


MessageBox. Show (string text) ; 


MessageBox. ShOW\SEEING Ltexlt, STtEINngG caplion); 
MessageBox. Show (string text, string caption, MessageBoxButtons buttons); 


و غیرها انشا خت 7 اوامر » كل واحدة متها عبارة عن داله خاصه ولهم ee‏ نفس الاسم › 


لنتصور لو لم يكن مبدأ 0۷8۲0۵0١8‏ موجودا » كنا سنضطر لكتابة دوال بالشكل التالى: 


MessageBox. ShowWithString (string text); 


MESSA4AGeBOXK : SHOWSEELNGANOCApBTIONn(SEEING, LexXT, SlCEING CaBLILOM) ; 
MessageBox. SHOWSTEINGAnNGICABDLTLIORNANOBUTTONS (SEFING LexT;, SLFINnG CapLILoNn, 
MessageBoxButtons buttons) ; 


أما الآن و لتسهيل الاستخدام تجدهم خد بنفس الاسم» وهذا ما يسبب سهولة الاستخدام. 


لتطبيق مıدÎ OverLoading JI‏ في دوالك يمكنك كتابة كود بالشكل التالي - لعملية الجمع مثلا 


في حين انك ل تدري هل يمرر لك في الفئة ككةأ) قيم من نوع ا٣1‏ او من نوع 1¢eطouكd‏ 
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الباب الثامن 


AS INT eGEE 
As Double 


AS DONG 


ByVal y As Integer) 


ByVal y As Double) 


double Yy¥) 


xX AS INC eGer, 


x As Double, 


x As Long, ByVal y AS Long) 


يمكن ان نعيد الكرة مرة أخرى مع ConstruCtOr JI‏ « 
المستخدم › لو عدنا لمٹثالنا ۶٥۲507۸‏ یمکن تعريف ال C0۸ S۲۷ ٣0۲۶‏ بالشکل التالی: 


string lname) 


SEEING Lnamê, 


int myage) 


Add (ByVal 


Add (ByVal 


Add (ByVal 


الفنات و مقدھۃ إلی البرمجہ کائنیہ التوجہ 


SLOELCT INE AOOCINE &, 
ا‎ 


1H VY) 


CELUI EK. YF 
} 
SCaAlCIT QAOouUblLe Add{(double x, 
{ 
ETUDE FF vy, 
} 
SEaAEITC Long AOCLONT XS; 


LOLUM SE BB YY; 


Private Shared Function 
RETDULDND KE FY 

ERAQ FüUnCEILon 

Private Shared Function 
ROTLUILLU KK Fy 

ENC FUNC LELGD 

Private Shared Function 
ROTULTD SFE VY 

End. FuUnNCEILOR 


فيمکنڪ عمل عدد متها حسب احتياج 


e 


class Person 
{ 
STLEInNG FLESTName} 
string LastName; 
pUGILITG INL AGE; 
public Person () { 

CONSOLE. WELTLELIRE (TEL 


BUDBLIEE 
OUBDILILC 


} 
public Person (string fname, 
{ 
FirstName = fname; 
LastName = lIname; 
CORNSOLE.WEI1teELINE (TEZ); 
public Person (StFIng fname, 
{ 
FirstName = fname; 
LastName = lIname; 
AGE = myage? 
CONSOLE. WELLELIRE FEST], 
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VB.NET 


Class Person 
PUDLIC ‘FIESENEME. A3 SEEING 
Public LastName As String 
Public Age As Integer 


Public Sub New () 
Console.WriteLlLine ("c1") 
En Sub 


Public Sub New (ByVal fname As String, ByVal lname As String) 
FirstName = fname 
LastName = lname 
CONSOLE. WELTELINE (TEL) 

EH SUD 


Public Sub New (ByVal fname As String, ByVal lname As String, ByVal myage As 
THEETET) 
FirstName = fname 
LastName = lname 
Age = myage 
Console. WrEI1teLinêe ("€3") 
ENCU SUG 
ENA CIASS 


وبهذه الطريقة يمكننا انشاء كائنات بآحد الطرق التالية: 


Person MyEmpolyee = new Person (); 
Person MyEmpolyee new Person ("ahmed", "gamal") ; 
Person MyEmpolyee new Person ("ahmed”"y, "Gamal", Z22); 


VB.NET 


Dim MyEmpolyee As New Person () 
Dim MyEmpolyee As New Person ("ahmed", "gamal") 
Dim MyEmpolyee As New Person ("ahmed", "gamal", 22) 
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Access Modifiers Jaڊصgll‎ ٽlفرعو‎ .5 


في دروسنا السابقة » كان معرف الوصول الافتراضي الذي نقوم باستخدامه هو 11٤‏ 60ا0 
وذكرنا ان هذا يتيح لنا الوصول إلى هذه الدالة أو هذا المتخير مباشرة من خلال ال ڄءء لإ 06 
فا نضا رقا تو ادها اليقرف جا فلن تمك من روبة هد المتتير او هته انال 
سوى من داخل الفئة C1455‏ نفسه فقط 


في هذا الدرس سوف نتعرف على انواع معرفات الوصول المختلفة والفروقات بينها. 
OLE‏ 


يتيح لك هذا المعرف الوصول إلى الدالة أو المتغير من ال ء٠[‏ ط0 مباشرة › ايضا لو قام أآحد 
باشتقاق الفئة C1455‏ فسيجد هذه الدالة 1٤٥٤‏ 1(طلام كما هى وسيمكن لل كا٤عزاه‏ من الفتة 


C1] 5‏ الحجديد الوصول لها. 

:Private 

يمكن فقط رؤيته داخل الفئة 1255ع او ال آا٣1‏ ۲ا5 الذي تم تعريفه من خلاله. 
:Protecltead‏ 


يمكن الوصول المباشر لها من ال ا٤٤[‏ ط0 ولكن يمكن الوصول لها من الفئة C1255‏ المشتق. 
:1nternal‏ 


يمكن الو صول لها داخل الاسمبلي الحالي فقط. 
:protected i1internal‏ 


يمكن الوصول لها ايضا من خلال الفئة C1255‏ المشتق اضافة للوصول لها من خلال نفس ملف 
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6 , العناصر الأساسية فى ال 00۲ 


جميع لغات البرمجة التي تطبق مبادئ ال 00۲ ل بد ان تتعرض للنقاط الثلاث التالية: 


Encapsulation .1 
Inheritance .2 
Polymorphism .3 


Encapsulation .l .6 


يقصد بال ۸١3†10|ا5 £١۸٤٩3‏ هو اخفاء وضم البيانات والآأكواد المختلفة واظهارها في النهاية 
للمستخدم على شكل ×80 )٤ا8‏ » حيث ستجد في النهاية دالة باسم R60٣‏ )"1ا » في الواقع 
ا يهمك ما هو الكود الموجود داخلها » حيث يكفيك استدعاءها لتعمل لديك دالة طباعة التقارير. 
تستفيد ايضاً من هذه الخاصية في حالة العمل الجماعي على المشروع › في الحالة العمل باسلوب 
Struct re0٩0‏ ستجد جمیع الکود في مکان واحد › اما مع ال a†10۸اsuمpھEnc‏ في ال 00۲P‏ فسیکون 
كل جزء من العمل مغلقاً على نفسه ويتم التواصل بينهم البعض عن طريق كأ٤‏ ٥زط0‏ مختلفة › 


وهذا ما يساهم في تسهيل تركيب العمل › تسهيل اكتشاف الأخطاء. 


Inheritance .2 .6 


أو الوراثة » ويقصد بها عمل نسخة جديدة من الفئة C1255‏ تحتوي على نفس خصائصه 
من اجل تطوترها أو تحدنل تعض الخضاتص > لتت ركن ما أن لدا فة 1485 (سارة) تختوى 
غلى اعم السارة وتارديخ صهها متلا 
والآن نريد القيام بعمل فئة 1255ء للسيارات ال 8117 مثلاً » في هذه الحالة من الخطاً ان نقوم 
بعمل فئثة 1455ع منفصل لها » ولكننا نستطيع اشتقاق فئة a5Sةاء‏ جديد من الفئة 1a8‏ 
المسمى C3۲‏ مع اضافة خاصية أ٣‏ 0م155 للفئة 1255ع المسماه 8١‏ » الهدف من ذلك اننا 
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سجد خضصاتض مقتركة نين آل1 و ال« »ايضا تضكر بوم لضاف فة نن 000 وانذف 
سيحتوي بدوره على بیانات مشترڪه. 

السبب اآخر لو قمنا باضافة عنصر جديد متل 0٤000٣5‏ ا١uا0ع‏ لكل السيارات » فھل ستقوم 
بالتعديل في جميع الفثات » في حالة قمنا بعمل اشتقاق من الفئة ۵٣‏ فإننا نستطيع التعديل فيه 
فقط لتطبيق التعديلات. 


ربما لا تظهر الأآهمية في الفتات الصغيرة ولكن تستطيع تخيل حجم الفائدة في حالة وجود ڪم 


كبير من البيانات. 


يتم تعريف العلاقة |٣٣٥٣ ۸٥٩٥‏ باسم ۵ > نت ان 36© 53 80١‏ » ایضا فے خالا و جود فة 
للاشكال وفئة أخرى للدائرة متلا Circle isa Shape jl‏ . 


هناك نوع آخر من العلاقات بين ال ك€ءءةا€ وهي علاقة ۵ ك2" وتسمى باسم ١10ا83٥۲ A88‏ في 
هذه الحالة تكون الفتة الثاني محتومة غلى الفنة الأو لى : هلا تو كان نديتا فة من احل عجلات 
السيارة باسم Car has a Wheel jgكتwږ «Wheel‏ .„ 


Polymorphism .3 .0‏ 
المبداً الآخير من مبادئ OOP‏ هو السماح بكتابة فئة بدوالها بدون آي «mplementation‏ 


والسبب هو اجبار اي مستخدم يقوم باشتقاق الفئة بعمل |٣ م۳٤ ۸۲3۲10١‏ لهذه الدوال بما يضمن 


تشابه الاسماء » ابسط مثال على ذلك فئة ككةآ€ ك عم12؟ » حيث يمكننا تعحريفه بالشكل التالي: 


class Shape 


{ 


BUDLIC. TOL DEaw (0) 


{ 
ِ 
public void GetSize () 
{ 
ِ 
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VB.NET 


Class Shape 
FUDLIC OUD. DEWL) 


ENA SUb 
Public Sub GetSize () 


ENQA Sub 
End Class 


في هذه الحالة يعرف ال ككها€ باسم Abstract Class‏ توەر #€ و VB.net‏ ایضاً مبدا ال 

face‏ nterا‏ والذني قهھ كرا ال 355ا As٣‏ ولكن مع فروقات سنتعرف عليها في حينها. 

في الفئة السابق فإن كل فئة (دائرة » مربع » مثلث) سيتم اشتقاقه من هذا الفئة سيكون مجبرا 
على كتابة اكواد الرسم وحساب المساحة لكل منهم . 

يمكن عمل ذلك بطريقة أخرى عبر ال ع٣‏ 0۷6۲۸۵0 ولكن مع الاختلاف في احتمالية وجود 

.Default Implementation 


Encapsulation . / 


يهدف مبدة ال ١0|ا3الاكمة٤٣‏ ع والذي سبق شرحه باختصار إلى اخفاء التفاصيل الداخلية 
ى فة عن اعين باقى المبرمحين » باختصار شديد لنفترض نظام محاسبیى يتضمن نظام لادارة 
المخازن » و آخر للصيانة » وتالث من اجل المبيعات. 


فى هذه الحالة يدعوك مبداً Encapsulation Jı‏ ليكون لكل واحد من هذه النظم عدد محدد من 
الدوال للدخول والخروج من هذا النظام والتي يمكن للنظم الثلاثة التواصل من خلالها » فمثلا في 
نظكام المبيعات تجد (اضافة عملية مبيعات) ( اضافة مشتريات ) ( خصم ) ... الخ فى مجموعة 


محدودة جدا من الدوال. 

طبعا لو لاحظت ان عملية مثل اضافة عملية مبيعات تتطلب طابورا من الأوامر > يتضمن فتح قاعدة 
البيانات والتآڪد من ان البيانات المدخلةه صحيحهة والتآڪد من وجود الكميه ومن تم تخزين 
الناتج فى قاعدة البيانات » تم تجميعها فى النهاية على شكل أمر واحد يقوم زميلك الأخر الذي 


كود سر فا واحات المت دد الي اتخدامة ندا م ا ئی كل هذه التقاصضل اة 
يقوم ببرمجة واج مإ بدلا من الخغوص في 
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كما لاحظت » يفيد هذا الموضوع الأشخاص التي تعمل في مجموعات اولاً »> حيث لن اڪون 
مضطرا لفهم كودك بالكامل ويكفيني ان اعرف كيف اتعامل معڪ › ڪما ان الكود EEE‏ 
على شكل هرم حيث كل أمر يستتبعه مجموعة من الأوامر › لكن سيكون زميلك المبرمج قادرا 
فقط للوصول إلى رآس الهرم وهو ما يقلل ڪثيراً من الأخطاء » ڪما يحمي متغيراتڪ الخاصة 
من العبث بها عن طريق الخطاً من المبرمجين الآخرين. 

هذا المفهوم الذي تحاول ان توصله لك كل لغات برمجة 00 ولتطبيق هذا المفهوم هناك 
العديد من النقاط التي سنتطرق لها في هذا الدرس. 

قبل ان نواصل › اول نقطة لا بد ان تضعها في ذهنك انڪ مبرمج وهتاك مبرمج آخر هو 
اا د و اک ا ا E E a E‏ 


ڪحز ء من المشروع. 


/. 1. استخدام دوال ء11طام للوصول إلى موتغيرانا ء٤12٣م‏ 


لنفترض المثال التالي بخصوص ال ۲50١‏ الذي قمنا بانشاءه عدة مرات على مستوى 
اتدزوس اتسانقة' 


Class Person 


{ 


publlc int Age; 


CLIaSS Person 
Public Age As Integer 


ENO CLS 
ولإن زميلك العزيز في الفريق الخاص بادخال بعض البيانات بشر - وجل من *« يسهو - قام بكتابة‎ 


الجملة التالية: 


CF 


Person Ahmed = new Person(); 
ANMeCZAGeS = 99090900909, 
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VB.NET 


Dim Ahmed As New Person () 
ARmMEeEd.AÃAGjê = 999999999999 


ولو ان السهو في رقم بهذا الحجم يعد شبه مستحيل › لكننا قد نتعرض لهذه المشكلة في 
اشياء اقرب للواقع › وابسط من ذلك لو انه يقوم بقراءة القيمه من المستخدم ليرسلها لڪ 


مباشرة » وفى وجود مستخدم - غلس - فإن مثل هذه المدخلات تعد أمرا طبيعيا. 


طعا هذا المدخل سسب الدمار العاجل اة الت فمك اها ٠‏ كما إن ر متك بره 
شاشات الادخال ريما لن يكلف نفسه عناء برمجة امر التحقق من الادخال › لذا تأآتي النصيحة 
الدائمة » امنع متغيراتك من الظهور لمستخدمها - المبرمج الآخر - وضع بدلا منها دوال لقراءتها 
او الكتابة إليها بالشكل التالي: 


Clas person 
{ 
private int Age; 
BUBDLTICG SLCEING SELAGE(IRNE &) 
{ 
LL. E 2Z IOC F< I) 
return "you can't edit age like that"; 


Age = x} 
FET UE OORT; 


} 
publlic int GetAge () 
[ 


FELUET AGE; 


} 
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VB.NET 


Class person 
Private Age As Integer 


Publlc Function SetAge (ByVal x As Integer) As String 
ITE X > 100 OrEELSe x < 1 Then 
Return "you can't edit age like that" 
End IF 
AIG Sx 
Return "done" 
End Func Lon 


Public Function GetAge() As Integer 
RelLuUrn Age 
ERC. FUNCLEILOR 
ENC. CLASS 


طبعا تسمية المتغيرات باسم × هو خطا كما اتفقنا سابقا » دالة ©$ ينبغى ان تأخذ الشكل التالى 


مغلا : 


public string SetAge (int Age) 
{ 
1F (Age > 100 || Age < 1) 
return "you can't edit age like that"; 


this.Age = Age; 
rTeELuUrn. "done™; 


Public Function SetAge (ByVal Age As Integer) As String 
If Age > 100 OrElse Age < 1 Then 
Return "you can't edit age like that" 
Ehd. IE 


Me. Agê = Age 
RétltüUrî "donê" 
ENC. FUNCELON 


و ذلك حسبما تعلمنا من خصائص ERIS‏ أو € فى الدرس السابق... 
ربما يبدو لك الأمر مملا او طويلا » لكنه مثل هذه الأمور فى المشاريع الجدية تعد نقاطا حيوية 


لا يمكن الاستغناء عنها لإنها قد تتسبب في سقوط للمشروع يكلف عدة ملايين بسبب خطاً بسيط. 


مالاحظة 
الدالة ء٥2۸‏ اء يطلق عليها اسم lgi Accessor‏ الدالة Age‏ ا Mutator jpwlڊ agصuتؤ Se‏ 
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Constructor JI ù ءjڊجڪ‎ pيقلl‎ Jلاسرا‎ .2 . 7 


طريقة أخرى يمكنك استخدامها كبديل او مع الطريقة السابقة » وهي اتاحة الفرصة 
للمستخدم لتمرير بارميترات قيم المتغيرات ضمن المشيد ٣0١‏ ۲۷أك١0)»‏ فى الفتثات الكبيرة 
سيكون لزاما عليك استخدام الطريقة الأولى إلى جانب هذه الطريقة حيث انك لن تتصور 


المستخدم يقوم بتمرير قيم كل المتغيرات لحظة انشاء ا٥[‏ 06 من ال ككئC1a‏ 


مثال هذه الطريقة: 


CLASES TELCO 
{ 
private int Age; 
public Person (int Age) 
{ 
LF (Age > 100 || Age < 1) 
return "you can't edit age like that"; 


this.Age = Age; 
return "done"; 


VB.NET 


Class Person 


Private Age As Integer 
Public Sub New (ByVal Age As Integer) 


If Age > 100 OrElse Age < 1 Then 
Return "you can't edit age like that" 
End Lf 


Me. Age = Age 
Return "done" 
ENG Sub 
Eid CLASS 
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Type Property JI pIèüwl .3 .7 


بنفس الطريقة السابقة » ولكن بطريقة اخرى واعتمادا على تحويل المتغير إلى خاصية لكل 
منها دالتان ا٥5‏ و ا٥6‏ »يتم كتابة ذلك بالشكل التالي: 


class Person 
ا‎ 
public int Age 
( 
qet { return Age; } 
set 


{ 


Lf (! (value > 100 || value < 1) ) 
Age = value; 


Class Person 
Public Property Age() As Integer 
Get 
RelLUEH AGê 
End Get 
Set (ByVal value As Integer) 
If Not (value > 100 OrElse value < 1) Then 
Age = value 
Ent. LE 
End Set 
End PEFOBEETY 
ENG. CLASS 


والآن يمكنك الوصول المباشر إلى ه۸9 › ولكن قبل تطبيق اي شيء سيتم استدعاء أ5 » وفي 
حالة طلب شيء سيتم الحصول عليه من اأع٥6‏ » وهو ما يتيح لك التآكد من بيانات الادخال او 
عمل بعض العمليات على عمليات الاخراج. 

لعلك لاحظت ايضا أن اه؟ و ع6 هما ٤11طنام‏ لان الخاصية (وليس المتغير في هذه الحالة) 
المسماه A9٥‏ هي ع٤1‏ 1طنام . ولكن منن 2.0 أ€. اصبح بامكانك التعديل في معرف الوصول 
الخاص ب S٠‏ او اع على حدة › بالشكل التالي مثلاً: 
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public int Age 
أ‎ 


get { return Age; } 
CrotetEel sêt ll Ag = Galle; 7} 


Public Property Age() As Integer 
GEL 
Return Age 
End Get 
Protected Set (ByVal value As Integer) 
Age = value 
End Set 
End PrFOobDerty 


إذا كنت ترغب في عمل ۷أ۲ ۵م١۲۲‏ ۷ا٣0‏ 24عR‏ فيمكنك ازالة الخاصية اع5S‏ أما لو اردت العكس 


: Read Only ProperYJ JlianlI Ii «Get ةصlخèlı‎ Jji Write Only Property Jaعڌ‎ 


public int Age 
{ 

get { return Age; } 
} 


Public ReadOnly Property Age() As Integer 
Gel 
Return Age 
End Get 
End Property 


Inheritance AĞlرgلl‎ 


ذكرنا في درس سابق ان 00۴ لها ثلاث عناصر اساسية » قمنا بشرح المفهوم الأول 
Encapsulation‏ فى دروس سابقة › وال¥آن موعدنا مع Inherita^°€ J|‏ . 
الآن سنبداً بعمل مثال نتابع معه العمل › لنفترض المثال السابق الذي شرحناه الخاص بالعربة: 
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CLASS: Caf 
ا‎ 
private string carName; 
private int carModel; 
publlic Car (string carName, int carNumber) 


{ 


this.carNme = carName; 
this.carNumber = carNumber; 


} 

BUDLILT CAF) 

{ 
carName = "Unknown"; 
carNumber 


VB.NET 


Class. Caf 


Private carName As String 
Private carModel As Integer 
Public Sub New (ByVal carName As String, ByVal carNumber As Integer) 
Me. CaENmMEe =. CEaFNaME 
Me.carNumber = carNumber 
ETH Sub 
Public Sub New () 
carName = "Unknown" 
carNumber 
End Sub 


End CLASS 


سنبدأً يبهذا المتثال البسيط » ونتايع العمل على تطوبيره وتحسينه خلال مراحل هذا الدرس. 


8. 1. تعريف العلاقةۂ a-وا‏ 


كما ذكرنا فى الدرس السابع عشر › فإن العلاقة قد تكون 5-4 وقد تكون 25-4" » ستحاول 


الآن شرح النوع الأول من العلاقات والذي يعني ان الفئة المشتقة هو من نوع الفئة الرئيسية › 


ستفترض سيارة BMW‏ 


CLASS BMW ;: CaF 


{ 
} 


167 


الباب التامن الفنات و مقدمةۂ إلى البرمجۃ کائنيۃ التوجہ 


VB.NET 


Class BMW 


Inherits Car 
EHNd CIS 
ونفضس‎ C31 هكذا نستطيع ان نقول ان الفئة البنت آ١8 يحتوي على نفس خصائص الفئة الأم‎ 
طتام فقط » ولكن لنفترض اننا في الفئة الابن نحاول الوصول المباشر إلى‎ 11٤ دواله وطرقه ال‎ 


الخاصية ٤٥ع١a۲ةآ٣اهaع‏ فلن نتمكن من ذلك » هذا المتال یو صح هذه النقطة: 


CF 


BMW ahmedcar = new BMW (); 
ahmedcar.carName = "anyname"; 


VB.NET 


Dim ahmedcar As New BMW () 
ahmedcar.carName = "anyname"”" 


حتى لو قمنا بتعحريف بعض الدوال داخل الفئهة المشتقة بحيث تستطيع الوصول إلى هذه الخاصية › 


لنفترض اننا اعدنا صياغة الفئة 3١‏ ليكون بالشكل التالى: 


Class BMW: Car 
{ 


publlc void changeCarName (string value) 


{ 


carName = value; 


} 


VB.NET 


Class BMW 
INHERITS CaT 
Public Sub changeCarName (ByVal value As String) 
carName = value 
EN SUb 
ENG CLESS 


للاسف لن يكون هذا صحيحا تماما » حيث انك بالرجوع إلى درس معرفات الوصول ستكشتف ان 


معرف الوصول ٥٤‏ 172٤م‏ لا يمكن الوصول له من الفئة المشتقة» من اجل هذا نستخدم معرف 
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الوصول ك8 ٤۲08م‏ حيث انه يشبه ال ۲17۷2٥‏ في كونه لا يمكن الوصول المباشر له من 
خااJ object J|‏ > لكنه في المقابل يمكن الوصول إليه من داخل الفتة المشتقة › لو افترضنا 
مثال الفئة 031۲ بالشكل التالي 


class Car 


{ 


protected string carName; 
protected int carModel; 


CLS Car 
Protected carName As String 
Protected carModel As Integer 
End Class 


فى هذه الحالة يمكننا تعريف دالة داخل الفئة المشتقة 811١‏ تقوم بقراءة هذه المتغيرات › لذا 


سوف يكون الكود التالى صحيحا: 


CIS BMW: Caf 


public void changeCarName (string value) 


{ 


carName = value; 


} 


VB.NET 


Class BMW 
IMNoOFILS CEE 


Public Sub changeCarName (ByVal value As String) 
carName = value 
ENG Sub 
ENd. ClIa83 
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NotInheritable - sealed A4jgجحيلll‎ Aولکلا‎ .2 .8 


يعني استخدام هذه الكلمة ان هذا الفئة لا يمكن الاشتقاق منه › يتم ذلك بالشكل التالي: 


NOLIHHNSTFILLaBblLS CLASS Car 


End Class 


C# yû sealed Jılãړî‎ Not Inher1tab 1e AÃgلڪلl‎ 


8. 3. الورانۂ الوتعددة 


لا توفر لغة السي شارب او ال ۷/6.١6‏ مبدآً الوراثة المتعددة » في حين تطبقه فقط 
managed c++‏ معنى كلمة الوراثة المتعددة ان بامكان فئة ما ان تشتق من اكثر من فة › 
لنفترض لدينا فئة شاحنة وفئة سيارة » في حالة دعم لغة ما للوراثة المتعددة فإننا نستطيع عمل 
نوع جديد يحتوي على خصائص الشاحنة والسيارة العادية › ولكن هذا ما ا توفره ڪل من السي 


شارب او ال ۷/8.۸6 . 


وكبديل لذلك › تقدم اللغتان دعم تعمل ۸k30‏ emeامص|ا‏ لاڪکتثر من inte r۴٤٤‏ » وھو 


ما سنتعرف عليه حينما نصل إلى هذا الجزء. 


أما لماذا لم تقدم مايكروسوفت دعم الوراثة المتعددة في €۴ و ۷/6.١٥‏ » إليك هذا الرابط: 
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رابط ھے 
http://blogs.msdn.com/csharpfagq/archive/2004/03/07/85562.aspX‏ 


5. 4. التعديل فى الفنات المستقةۃ 


كما رآينا في الدروس السايقة » يمكننا التعديل مباشرة على خصائص و طرق وأحداث 
ودوال الفثةه الجديدة » في المتال السابق قمنا باضاهفه دالة تسمح لنا بتغيير الاسم › يمكننا اضافه 
خاصية جديدة للفتة 6MVW‏ تحتوي على عدد أجهزة التلفزيون داخل السيارة كميزة اضافية فى 


السيارات من نوع «BMW‏ و هکدا... 


يمكننا عمل فثةه آخرى لعربة فيراري »› فى هذه الحالة يمكننا اضافة عدد الفتحات الجانبية 
للمحرك . لكن لو احتحلا في مرحله الى تعريف خاصية كmaxS6€€4‏ لجميع السيارات فيكفى 
اضافا کے اله الاساسة 0# وستحادها موجودة تالاتا كى الات الانتاء حفط 


من هنا نستطيع ان نلاحظ ان واحدة من الفوائد الرئيسية لعملية الوراثة هي وضع قاعدة عامة 
للعناصر المتشابهة » وعمل نسخ لاضافة نقاط الاختلاف فقط بدلا من اعادة تكرار كل منها عدة 
مرات » ربما لن تجد الفرق كبيراً في المثال السابق حيث اننا نعمل مع 3 او 4 خصائص فقط › 
ولكن في متال حقيقي مع عدة اوامر للتعامل مع المستخدم وللحفظ في قاعدة البيانات والطباعة 


والعرض والعمليات الحسابية ستستطيع ان تدرك الفارق بين استخدام مفهوم الوراثة وعدمه. 


8. 5. العلاقةۂ من نوع ٣25-a‏ 


كما اوضحنا في اول درسنا فهذا هو النوع الثاني من العلاقات بين الفثات المختلفة› هذا 


النوع يعني ان الفنة تحتوي على فثة أخرى › لو افترضنا مثال فنة العجلات بالشكل التالي: 


CLAS TIFFS 


{ 


int TiresType; 
Iik ILL I E, 
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Class Tires 


Private TiresType As Integer 
Private TiresSilize As Integer 
HO CIS 


نعرف يقينا ان الاطارات ليست من نوع سيارة C31۲‏ 2 أ0 ك| ٥٣1ا‏ ولكنها جزء من السيارة ©02۲١‏ 


ع1ا has a‏ لذا يمكننا تعريف فثة السيارة بالشكل التالى : 


CLASS Caf 


Tires carTires = new Tires(); 


ا 


VB.NET 


Class Car 
Private carTires As New Tires () 
ENQA. CLASS 


لا تنس ان باوکانك تعریفھا ک ۲1۷2م او prot ected‏ وعولJ‏ خاصیۃ لھا من اجل القراءة 
والكتابۂ إلبها 


CastI¬E قllıgحتلl‎ .6 .8 


يقصد بال 8١5ئ٤‏ عموما هو التحويل من نوع إلى آخر › تم شرح المفهوم العام له 
وانواعه في درس سايق . 
والآن سنحاول تطبيق نفس المفاهيم على ال 5565| الطريقة الأولى للتحويل هي استخدام 


"اة" العادية › مثلاً لو قمنا بتعريف سيارة :8M۷‏ 


CF 


BMW ahmedCar = new BMW (); 
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VB.NET ا‎ 


Dim ahmedCar As New BMW () 


وقمنا بارسال المتغير إلى دالة تقوم باستقبال 211١‏ فسوف تعمل بصورة صحيحة › ايضا لو قمنا 
بارسالها إلى دالة تستقبل C03۲‏ فسيكون هذا صحيحا لإن كل "آ٥‏ هي في الحقيقة 03۲ » بينما 


العملية العكسيةه ليست صحيحهة . 
النقطة التانية لو قمنا بتعريف BMW‏ بالصورة التالية: 


ڪو د ) CF‏ 


Car ahmedCar = new BMW (); 


VB.NET ر‎ 


Dim ahmedCar As Car = New BMV () 


۶ 


هذا الموضوع صحيح فعلا وهو ما يدعى باسم أكةء ااام "| » والآن يمكن ارسال المتغير مباشرة 
إلى تلك الدالة التي تستقبل ..021١‏ 


لتفترضن مالا آخر فما فيه ریف 81١‏ انگل اتاتے: 


ڪو د ) CF‏ 


Object ahmedCar = new BMW (); 


VB.NET a 


Dim ahmedCar As Object = New BMW () 


هذا صحيح ايضاً لإن كل فئة هو ٤ء٠[‏ ط0 ايضا » لكن لو قمنا بارسال المتخير إلى الدالة التي 
تستقبل C031١‏ فسوف تظهر رسالة خطا › لذا نقوم بعمل أكئهC‏ بأحد الاشكال التالية: 


CF 


functionname ( (Car) ahmedCar) ; 
functlionname ( (BMW) ahmedCar) ; 
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VB.NET 


functlionname (DirectCast (ahmedCar, Car) ) 
functionname (DirectCast (ahmedCar, BMW) ) 


8. 7. الكلمةۂ الوحجوزة ئ1 


تقوم هذه الكلمة باختبار فيما إذا كان الطرف الاول هو من الطرف الثاني › مثال 


(ahmedCar 1s BMW) 


lf TypeOf ahmedCar Is BMW Then 


ENO TE 


تفيدك هذه الكلمة فى حالة وجود عدة متخيرات من عدة انوع مشتقةه من نفس الفتةه » ونريد ان 


نعرف فيما إذا كانت من نوع 87 او فيراري مثلا. 
Visual Studio Class Diagram .8 .8‏ 


يوفر لك الفيجوال ستوديو ابتداء من الاأصدار 2005 اداة لعمل ال 013۲۳0 ككها€ .» هذا 


مثال عليها: 
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Visual Studio Class Designer .1 .8 الصورة‎ 


يمكنك اضافتها من 8۲۳ أك ككةأع <- €۷ » ومن ثم العمل عليها مباشرة › او عرض الفتات التى 
لديك » يمكتنك انشاء العلاقات المختلفة فى هذا الوضع . 


Polymorphism JI .9‏ 
تعرفنا في درس سابق على معنى ال ۳ءأ٣م0۲‏ "0۷م بشكل عام » الآن سنتعرف عليه بصورة أكثر 


التعريف الماضى والذي يسمح لك بتعريف ٥155S‏ بدون اي ٣3٤10۸‏ emeام‏ ”| » یوفر لڪ ايضا 
كتابة كود ولكن فى المقابل يسمح لك بتغيير ال١‏ 310١ع‏ ”ءام | الخاص بالدالة بين الفئة 


والآخرى › وهو ما يعرذف بڊبlاسpş .Overridi¬€‏ 
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لنفترض متال السيارة الخاص بنا » لو افترضنا وجود الدالة التالية الخاصة بيحساب المسافه 


المتبقية للسيارة قبل ان ينفد البنزين » وحيث ان السيارة (مثلا) تصرف جالونا لكل 10 كيلومتر. 


PUDILIIC IRE CalC(Int Tiel) 
{ 


FéELUEN EUEL * IO; 


Public Function calc (ByVal fuel As Integer) As Integer 
Return fuel * 10 
ENQU. FURCEILOoN 


ولكن بعد عملنا للسيارة "آ8 اكتشفنا ان هذه السيارة لا تسير على نفس القاعدة › إذ انها تصرف 
جالوناً لكل 5 كيلومترات فقط » في هذه الحالة نحن بحاجة إلى اعادة تعريف الدالة 41٤٥‏ في 
الفئة المشتقة » هذا هو ما يعرف باسم اعادة القيادة ع٣‏ أكأ٣۲‏ 0۷6 وهو احد مبادئ ال 
mكhiمymorpادم.‏ يتم ذلك عن طريق تعريف الدالة الاساسية في ال ككوةاء 26ط من نوع 


1a‏ اا1 بالشکل التالى: 


OUDLLT VIF TOAL ARE CaLClLRE FUEL) 


{ 


TE UT TEL FF IU; 


} 


VB.NET 


Public Overridable Function calc (ByVal fuel As Integer) As Integer 
ReELUER füel * 10 
End  FURCEILOonN 


ال1 virtua‏ او ال 1eاoverr1ddeab‏ تعني ان هذه الدالة يمكن اعادة تعريفها في الفئة 


المشتقة » كما يمكن عدم تعريفها ايضا › لاعادة تعريفها نكتب الكود التالي في الفئة المشتقة : 


pBuUbDLLCG override int calce{(int fuel) 


KOLU TUL *F GB; 


} 
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Public Overloads Overrides Function calc (ByVal fuel As Integer) As Integer 


Return fuel * 5S 


EHC Funct ILon 


ايضا يمكنك ترك ال 10ا3٣‏ € "|ام ۳| فارغاً فى الفئة الرئيسية ومن ثم قم ببرمجتها فى الفنات 
الآبناء »> تعرف الفئة الغفارغ من ال impleme"†3۲10١‏ باسم Abstract class‏ وaو‏ غير اinterfaCceJ‏ 


الذي سنتعرف عليه فى مرحلة قادمة. 


Abstract JI .10 


فى الدرس السايبق تعرفنا على معنى كلمة ككهاع اعا Ast‏ . وعرفنا انها مجرد فئة عادية 
بدون ۸310١‏ عام" |آ» لکن لکی نجبر انفسنا على عمل نسخة منه قبل استخدامه » نستخدم 


الكلمة المحجوزة ا٣۲3‏ ا5 0ة لتعريفة بالشكل التالي: 


aGSEFaAScGE GaFLILaL Class. Car 


} 


VB.NET | ر‎ 


Partial MustInherılıt Class Car 
End Class 


C# yû abstract #glك‎ jۆliو‎ ıa vb.net yû Must Inher i aãjgوجحولا الكلوة‎ 
: في هذه الحالة سوف يعطينا هذا التعريف خطاً‎ 


CF 


Car ahmedCar = new Car(); 
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VB.NET 


Dim ahmedCar As Car=new Car () 


Abstract Method 


ذڪرنا في الدرس السابق ايضا اننا نقوم بتعريف الدوال 71۲٤121‏ لكل نقوم بعمل overridi¬^£‏ 
لها في الفئة المشتقة لاحقا › وهذا ما يعطينا الحق في اعادة كتابة الكود الخاص بها او تجاهله» 
لكن لو اردنا اجبار المبرمج على اعادة القيادة 0۷8۲٣۲١۵٣8‏ نقوم بذلك بتعر يف Abstract met 0٥d‏ 
بالشكل التالي: 

CH 


BUOIIC QC LTATCT INCL CalC(ARE TUG] 


VB.NET 


Public MustOverride Function calc (ByVal fuel As Integer) As Integer 
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الباب التاسع الواجlaٽ Interfaces‏ 


Interface J| تعريف‎ .1 


abstract class ga interface Jı‏ يحتوي abstract methods and members yl‏ یمکن عمل 
نسخة منه باستخدام بمفهوم implementation‏ بد¥ من inheritance‏ » كما يتمیز بامکانية عمل 
ementاimp‏ لاكتثر من €٥8ا inte‏ في المرة الواحدة وهو البديل عن مفھوم multiple‏ 


„ inheritance 


یمکن تعریف ٥٥‏ 8۲۴۵| بالشكل التالى مثلا: 


publl1ic interface ICar 


{ 


int carMaxSpeed { get; set; } 
vVOlQd AddItem (string Item); 


VB.NET 


PuBbIILc Iiterface ICaf 
Property carMaxSpeed() As Integer 
Sub AddItem (ByVal Item As String) 


End Iiterface 


لا تنسی ان بامکانڪ اشتقاق ٣8۲۴۵٥۵€‏ | من آخر بالشكل التالى مثلاً: 


public interface ICar : I[IDisposable 
{ 
int carMaxSpeed { get; set; } 
vOlQd AddItem (string Item); 


VB.NET 


PUBLIC IniterTace. ICaf 
Inherits IDisposable 
Property carMaxSpeed() As Integer 
Sub AddItem (ByVal Item AS STEFINO) 


End Interflracée 
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ولعمل ns‏ emeاimp‏ ¥إي interface‏ نقوم بكتابة الكود التالى: 


DUDLIC CIS BMW ١ 
{ 


} 


OUDLITC CIRE EWL FF ICO, IIT UOC 
{ 


} 


PUDIIC CLASS EMV 
Implements ICar 


End Class 


PUDLIILIC CLASS BMW 
Implements ICar, ITruck 


End Class 


الآن يمكنك اعادة كتابة الدوال الموجودة . اضافة دوال جديدة » ومن ثم استخدام الفئة كما قمنا 
بذلڪ قبلا. 

هذه بعض النقاط التى لا يمكنك عملها مع الواجهات 

- بداية » ال |١۲€ ۲۴۵٤٥۵‏ ا يمكن عمل اي ا٤٥0‏ منه لذا فمتل هذه الجملة خاطئة: 


CF 


I[Car x = new ICar(); 


VB.NET 


Dim x As New ICar() 


- لا يمكن تعريف متغير عادي فى ال ۲€٥٤ه۲۴۵ع1١|ء‏ لذا متل هذه الجملة داخل ال €٥۲۴3ع]١|‏ خاطئة: 


CF 


LHL HuUnmoer; 
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VB.NET 


Dim number as integer 


CF 


int x { set; get; } 


Private Property x() As Integer 
Geb 


End Get 
Set (ByVal value As Integer) 


End Set 
End Property 


- بالطبع ا يمكنك كتابة آي سطر كود داخل ال ۲€٥٤ه۲۴ع),|.‏ 
- ڪما %» يمکù .interface JJ constrUCÎOr Jac‏ 


Names Clashes .2 


اخضانا ما يقوم c1a5S‏ او struct‏ ما بعمل sاemen]اimp‏ ¥كثر من €۴٥ھ]ا inte‏ › وربما 


يحدث مشاكل في تشابه الأسماء » لنفترض المثال التالي: 


public interracêeê ICar 


{ 


VOI1Qd move () ; 


} 


PBuUbDLLC 1MLterTace TITrick 


| 


VO1d move (); 


ٍ 
OUDIIE CIS EN +: IIc ucek, TLI 
{ 
ٍ 
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VB.NET 


PuUGLIIG Interface ICar 
Sub move () 

End Interface 

PFUDIIGC IIL ETTalte IIFUCkK 
Sub move () 


End Interface 

PUDLIG CLS BMW 
1Implements ITruck 
Implements ICar 


End Class 


ريبما لن تجد مشكلة فيما لو قمت بعمل ٣١31|0١‏ عمmعامص|ا‏ للدالة () ع ا0" فى الفتة الجديدة 
BMW‏ : 


DURLITD CICS DN : AIEEE, LSE 
{ 


VOl1d move () 


أ 
do Something:‏ 7/ 


VB.NET 


PUDLIC CLASS BMW 
Implements ITruck 
Implements ICar 


Private Sub move () 
' do something. 
EU SUB 
End Class 


ولکن ماذا لو آردت عمل me ۸3110١‏ eامim‏ للدالة () move‏ من Ca‏ واخرىی لدل )( mMOvVê@€‏ 
من )نلآا » نقوم بذلك بالشكل التالى: 
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SUDLIG CIS ER ;: ITEUCkK, ICAE 
{ 


VO1d ICar.move () 


{ 
// d6 sSomêtHino: 


} 


TOLO' TIEUCR. MOVE 0 


{ 


/7 -d6 something: 


} 


VB.NET 


Public Class BMW 
Implements ITruck 
Implements ICar 
Private Sub move () Implements ICar.move 
' 6 SOMETHING. 
ENû SUB 
Private Sub move () Implements ITruck.move 
' do something. 
ENC. Sub 
ENG CLASS 


ويعد عمل اع[ ط٥‏ من الفئة BMW‏ يمكن تحديد اي واحدة من الدالتين يتم استدعاءها بالشكل 


BMW ahmedCar=new BMV () ; 
1Car temp= (ICar)ahmedCar; 
tLtemp.move (); 


VB.NET 


Dim ahmedCar As New BMW () 
Dim temp As I[ICar = DirectCast (ahmedCar, ICar) 
Lemp .move () 
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ITEnumerable Interface 


نواصل الآن دروستا مع ال €5S٤ه۴اعİnt‏ » سنتعرض الآن ولتلاث دروس قادمة عن كيفية 
عمل فئة أو 5Sھ[€‏ يقوم بعمل ٣e۳eامصا‏ لل interface‏ معین» فی هذا الدرس ستبدا ب 


interface‏ المىسمى 1e‏ erabعumاn٣‏ ۳ ] وما هى الفائدة المرجوة وراء ذلك. 


ملا حظة 
أرجو منك أن تركز جيدا في هذا الدرس ٠‏ فهذا واحد من الدروس التي سنلاحقنا كثيراً أثناء تطبيق مبادع 


LINQ 


و ض ان لديتا فة مصفوفة أسماء د تنحنوي على عدة بيانات بالشكل التالي 
CF‏ 


string[l]|] users = { "Ahmed", "Mohammed" }; 


VB.NET 


Dim users As String() = {"Ahmed", "Mohammed" } 


foreach (string us in users) 


{ 


Console.WriteLine (us) ; 


} 


VB.NET 


For Each üs As String Ih users 
Console.WriteLlLine (us) 
NEX CE 


هذا لو كنا نعتمد على ۲۲3۷ء تجد اننا نستخدم دالة للدوران على كافة العناصر › سنقوم بتوسيع 


المتال نوعا ليكون ذلك بالاعتماد على فئة » سنفترض فئة الموظفين بالشكل التالى: 
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publlic class employee 


{ 


LHL Mo: NnUmMDEEF} 
string emp_name; 


VB.NET 


Public Class employee 
Private emp_number As Integer 
Private emp_name As String 
ENC CLASS 


وليكن لدينا فته خر ى يحنوي على بيانات المستخدمين » حيث ان المستخدم هو عبارة عن 
مجموعة من الموظفين بالشكل التالي مثلا: 


BUDLLC. CLASS USerTSs 
| 
employee [| emp new employee [3]; 
users () 
{ 
emp [O0] = employee (10, "Ahmed") ; 
emp [1| = employee (20, "Khaled"); 
emp[2]| = employee (30, "Ali1"); 


VB.NET 


FUDLILE Clas USers 
Private emp As employee () = New employee (2) {} 
Private Sub New () 
emp (O0) = New employee (10, "Ahmed™") 
emp (1) = New employee (20, "Khaled") 


emp (2) New employee (30, "Al1") 
ENC SUD 
End Class 


نكا استحر اض السطارات انها باستخدام F0 each‏ ایضا باستخدام جملة ڪالتالي : 


foreach (employee e 1n emp) 


{ 


} 
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For Each e As employee In emp 


Next 
.1٣ ٣u ۳٣٥۲2601٥ مع كل 000| سيتم طباعة عنصر معين» هذا هو المبدا الذي سنسعى إليه مع ال‎ 
:TEnumerable ىaسalا‎ İ¬€r]a٥€ الشكل الاساسي ئل‎ 


publl1c interface IEnumerable 


{ 


IEnumerator GetEnumerator () ; 


} 


VB.NET 


Public Interface IEnumerable 
Function GetEnumerator () As IEnumerator 
End Interface 


وكما ترى في المتال السابق › يقوم بتعريف واجهة int er]a٥€€‏ من نوع En ume ٤210٣‏ ] بالشکل 
التالى 


» 


public interface IEnumerator 
{ 
bool MoveNext (); 
object Current { get; } 
YOL ReséT (O; 


VB.NET 


Public Interface IEnumerator 
Function MoveNext () As Boolean 
ReadOnly Property Current () As Object 
SUS RESET (0) 

End Interface 


لذا لو كنا نرغب في ان نجعل فثه 158۲5 تقوم بعمJ interface ةãqجlalا oùgl implement sS‏ 


سنضطر تعمل ۳٤۸٤‏ eامim‏ تلدالة ()( EnumeraÙÈOorاGe‏ » سیکون ذلک بالشکل التالي: 
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"Khaleda™); 


Interfaces ٽlaجاولا‎ 


GUDLILG Class Uoers 


{ 


LZEnNnumMerab Lé 


employee [|] emp = new employee [4]; 
users () 

{ 

"Ahmed"); 


= new employee 


(10 
= new employee (20 
= new employee (30, "Al1"); 
= new employee (40, "Sami"); 

} 

publl1c IEnumerator GetEnumerator () 

{ 

return emp.GetEnumerator () ; 


ا 


VB.NET 


PUBLIC CLASS users 
Implements IEnumerable 


Private emp As employee () = New employee (3) {} 


Private Sub New () 
= New employee (10, "Ahmed" )) 
New employee (20, "Khaled") 
New employee (30, "Al1") 
= New employee (40, "Sami"”) 
Eid. Sub 


Public Function GetEnumerator () As IEnumerator 


نمکتنا القام نذ تک بنذو یا ایضا دانشکل التالی: 


employee) 


Return emp.GetEnumerator () 
ENG: FuUnCLEILon 
End Class 


IEnumerator 1 = emp.GetEnumerator (); 
1.MoveNext () ; 
employee myCar = (employee) 1.Current; 


VB.NET 


Dim 1 As IEnumerator = emp.GetEnumerator () 
1.MoveNext () 


Dim myCar As employee = DirectCast (1.Current, 


190 


الباب التاسع الواجھات Interfaces‏ 


ماذا نستفيد من هذه الطربيقة © 

في الواقع فآي مبرمج لقواعد البيانات يستطيع ان يستنتج العلاقة بسهولة › إن ما نحن 
بصدده هنا هو مثال عن فئة تحتوي على مجموعة من البيانات اشبه بقاعدة بيانات » واصبح 
باستطاعنا الآن القراءة منها والتنقل فيها باستخدlم moveNexİL‏ . 


- استخدام ك1 ع۷1 


بدلا من الكود السابق قم بكتابة الكود التالي: 


publl1c IEnumerator GetEnumerator () 


( 


VIEL FECULTD EPL, 


VILL EEUU EMNCLLI; 
VDE EET ENOL, 
yield break; 


في هذه الحالة ومع اول استدعاء للدالة سيتم اعادة القيمة الأولى › ثم الثانية فالثالثة وهكذا حتى 
تنصل إڏٿیى. yield break‏ 


نستعرف على واحدة من أهم الاستخدامات الفعلية عندما نصل إلى ]][N0Q‏ » وحتى ذلك الحين 


أتمنى ألا تغخفل عيتنك عن هذه الواجهة . 


ICloneable Interface .4 


عملية ال ٤|0١۵‏ يقصد بها عملية النسخ للكائن › بمعنى اننا عندما نكتب الكود التالى: 


VB.NET 


Dim x As Integer = 5 
Dim y As Integer = x 
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فإننا فعلياً نقوم بنقل قيمة × إلى ل › ولكن في حالة تعاملنا مع الفتات بالشكل التالي: 


CF 


Car x = new Car ("BMW"); 
CAT VY & 


VB.NET 


Dim x As New Car ("BMW") 
Dim y As Car = x 


في الواقع ان قيمة × لا تنتقل إلى ۷ › بل إن ۷ يصبح يشير إلى المكان الذي فيه قيمة × › ولذا 
فإن اي تعديل في قيمة × سيعدل قيمة ¥ والعكس بالعكس. 

من هنا كانت عملية ال ٤|0١۵‏ من اجل عمل نسخة جديدة في القيمة ووضعها في المتخير الآخر. 
الواجهة 1٤10٣٥21٠‏ التي تحتوي على الدالة »)|0١€‏ يمكن استخدامها لهذا الغرض» حيث 
يمکننا ڪتابة ڪود ڪالتالي: 


publlic object Clone () 
| 


return new Car (this.carName) ; 


} 


VB.NET 


PUDILIILG Furiclion Clone) Ae Ob ec 
Return New Car (Me.carName) 
ENC FUNCTION 


الآن اصبح بامكانك عمل نسخة جديدة باستخدام 1٥١٥‏ بالشكل التالي: 


CH 


Çar & = new Car (TEM; 
CAE YY = CGE CIORE O 


VB.NET 


Dim x As New Car ("BMW") 
Dim y As car = DirecltCcCast(x-Clone(), Car) 
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TComparable Interface .5 


ڪما هو و اصح من الاسم › يدستخدم هذا ال interface‏ للمقارنة › ولذا من الطبيعي ان یکون شکل 
هذا ال |٣ €۲۴3٤٥۲€‏ بالشكل التالى: 


public interface IComparable 


{ 


1nNt ComparteTo (object 0); 


} 


VB.NET 


Public Interface IComparable 
Function CompareTo (ByVal o As Object) As Integer 
End Interface 


يمكنك ملاحظة ان الدالة تعيد قيمة رقميةء فعليا هي تعيد في المعتاد القيم 0 في حالة التساوي › 


القيمة 1 في حالة كون الطرف الأول اكبر › و -1 في حالة كون الطرف الأول أصغر. 

طبعاً لا داعي من اعادة تذكيرك بأن الكائنين يكونان متساويان ليس لاعتبارات تساوي قيمهم 
الداخلية بل النقطة في اشارتهم لنفس المكان في الذاكرة › وهو ما لن نحتاجه » حيث اننا نحتاج 
لمقارنة فعلية . وهذا ما قمنا به من خلال الدالة Sلاu2aلا¶..‏ 

اما النقطة التي لدينا هنا فلسنا بحاجة لمعرفة هل يساوي هذا الكائن ذاك ام لا » بل نحن في حاجة 
إلى معرفة ايهما اكبر او اصغر › ولنفترض تاريخ صنع السيارة ضمن الفئثة الخاصة بيها. 

ببساطة كما قمنا في الدرس السابق » ستجعل الفئة الخاصة بنا تطبق الفئة 1€ »]C)0"P2۲26‏ ثم 


نكتب بعض الاكواد في الدالة 00١P 2۲٥10‏ لنفترض الشكل التالي مثلا: 


int IComparable.CompareTo (object obj) 
{ 

Car temp = (Car)ob]; 

Lf (this.year > temp.year) 


LEeLUFET 1l; 

1F ({(thi18.Véar < Temp. vEear) 
ELUTE = 

else 
EEUU U 
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VB.NET 


Private Function CompareTo (ByVal ob] As Object) As Integer Implements 
1Comparable.CompareTo 
Dim temp As Car = DirectCast (obj, Car) 
lf Me.year > tLemp.year Then 
Return 1 


EL LE 
lf Me.year < tLemp.year Then 
RElDUIN =| 
Else 
Return Û0 
ENC TE 
ENC FUNCTION 


طبعاً ا داعي لتذكيرك بانك تستطيع اعادة -100 و 0 و 94 بدلا من -1 و 0 و 1 › لكن هذا 
لتسهيل المفهوم › الدالة تعمل بدلالة رقم سالب يعني اصغر › صفر يعني التساوي ورقم موجب 
يعني اكڪبر فقط دون ان يعنيها قيمةه هذا الرقم الفعليهة. 
الدائة oOFİ‏ 

لنفترض ان لدينا مصفوفة 3۲۲3۷ من الارقام باسم ٣۲5‏ "نا لر"» فى هذه الحالة لو قمنا 
بكتابة الأمر التالي لكان الكود مفهوما: 


Cf 


AFTAYV SOFC {MYNUNOEES) } 


VB.NET 


Array.Sort (myNumbers) 


ولكن لو كان لدينا مصفوفة من السيارات » وكتبنا هذا الكود لترتيبها فإن هذا بالتآأكيد سيحدث 
لكن في حالة كون الفئة ٤3٣‏ تطبق ال €٥ه۲‏ €"¡ € 201ا aم"€0]»‏ ففي هذه الحالة سيمكکنڪ 
استخدام هذا الدالة ببساطة لإنها سوف تقوم بالمقارنة اعتماداً على دالة 00١64۲810‏ التي قمت 
انت ببرمجتها » ربما يكون هذا سبباً كافياً لتقوم بتطبيق هذا ال ١8۲۴3٥٥‏ وكتابة كود الدالة 
بدلا من كتابة دالة باسم معط مثلاً او اي اسم آخر للقيام بنفس المهمة . هذا طبعاً بالاضافة 


لتسهيل استخدام الفئة الخاصة بكل لاحقا ووضوحها لأي مبرمج آخر. 
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سنتعرف فى درسنا هذا على الآخطاء و كيفية اقتناصها وتفاديها » معانى رسائل الخطآً واشهر 


اللاخطاء وخلافه » ولكن قبل البداية نحتاج لان نو ضح آقسام الآأخطاء التي تحصل في اي برنامج: 


Syntax Errors Aggحiلl الأخطاع‎ . 1 


هذا النوع من الاخطاء هو الاأسهل «٠‏ وفي Advanced Programming Environments‏ مثل 
pîy «Visual Studio , NetBeans ... etCJı‏ اكتشاف هذه الأخطاء فوريا » مثال هذا الخطاً كتادة 


الجملة التالية: 


VB.NET ا‎ 


LF x.Nome = somevalue 


بالطبع ستجد رسالة خطاً قبل التنفين تخبرك بأن الخاصية N0۳€‏ غير موجودة» مثل هذه الأخطاء 


هي الاسهل ويتم اكتشافها من خلال بيئة لغة البرمجة التي تعمل عليهاء وفي †€¬. Visual Studio‏ 


8 اصبحت رسائل الخطا واضحة للغاية ويمكن تفسيرها يسهولة وحلها يهذه الطريقة . 


Logical Errors ۃAيaطنیلا الأخطاء‎ . 2 


هذا النوع من الأخطاء هو الأصعب» فعلى صعيد كتابة الكود ريبما لا يوجد خطاً نحوي و لكنه خطا 


منطقى يظهر عند التنفين» ابسط متثال على هذا الخطاً هو كتابة ڪود ڪالتالى: 


VB.NET 


Dim x as Byte= 100000 


طعا جرک ان خود وء 2ا0 اضر م ها الحك فى الأضدارات القدنمة هنا 
بعا دعر و ع ¥ اصعر من و هي ر د د 
ليظهر خطاً حيث ان الجملة مكتوبة تحويا كما ترى . 


امثلة على هذا الخطاً اسناد قيمة ل اء[ ط0 قبل عمل ١©‏ له .. الخ. 


لكن مع اصدارات فيجوال ستوديو الجديدة » اصبحت متثل هذه الآأخطاء تظهر مباشرة » يل ان هناك 
انواعا اصعب من ال ٤۲۲٥۲۶‏ اعا اصبح الفيجوال ستوديو قادر على اكتشافها على شكل 


.warnings 
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تن تذهت يندا > سنبداً بتقسیم ال ۲۲۵٥۲۶‏ أةءأعما وهي الأخطاء الأهم إلى ثلاثة أنواع اساسية: 
User Error -‏ 


أخطاء تنتج من استخدام البرنامج › لو افترضنا المثال السابق ل ٥١‏ أ۷ نقوم فيه بتخزين عمر 
المستخدم » لكن المستخدم قام بادخال رقم 10 الاف »› هذا الخطاً من المستخدم سيتسبب فى 
المشاكل لك فيما لو لم تكن قد اضفت شرط التأكد من عدم تجاوز العمر لحد معين» ايضا 


ادخال بیانات نصية في خانةه العمر و خلافه تندر ج تحت اسم خطاءِ المستخدم. 
Exceptions =‏ 


النوع الآأشهر من الأخطاء » محاولة فتح ملف او قاعدة بيانات غير موجودة مثلا حيث لم يتم 
تحميلها بصورة صحيحة » محاولةه قراءة بيانات من قاعدة البيانات فى حين انها تساوي null‏ 
بدون استخدام ٥عمرا‏ عاطهاألام » محاولة الكتابة إلى ملف نصى »۸٤220011¥‏ وخلافه من الأخطاء 


المشهورة. 
Bugs -‏ 


اكثر الأخطاء شهرة › لا يمكن حصرها ولا عدها » وتوجد في جميع البرامج بما فيهم نسخة 
الويندوز التي تستخدمها › في العادة لن يخلو برنامج منها ولكننا نحاول تفاديها قدر المستطاع» قد 
تحدث بسبب نسيان حذف متغير او قراءة متغير من قيمة موجودة اصلاً فى الذاكرة ونحن نظن 
انها قيمة فارغة ... الخ » هذه الأخطاء قد لا تظهر ل 099 من المستخدمين ولكنا تظهر لمستخدم 
واحد فقط › لذا في العادة تكون هناك عدة نسخ تجريبية من اي برنامج لمحاولة معرفة اماكن 


امتال هذه الأخطاء وتعديلها قبل طرح النسخة الرسمية. 


في درسنا هذا سنركز على النوع الثاني من الأخطاء وهو الأهم › النوع الأول ايضا سنحاول وضع 
استنثناءات من اجل التأكد من اختيارات المستخدم ولكن جمل التحقق هى الآأهم فى الحالة الأو لى» 


اما الحالة التالنة فالتجربة المستمرة والمتابعة هى الوسيلة الآأمتثل لتقليلها. 
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3. dllأذAۉ System.Exception‏ 
هي الفئة المختصة في عالم .١€‏ بالتعامل مع الأخطاء التي تحدث في النظام › في الواقع فإن أي 


خطاً يرسل للنظام ثم يقوم النظام بارساله إلى ال 1۴ء والذي بدوره يخول 
Except 10n‏ .عار للتعامل مع هذا الخطا »› محتويات هذه الفئة بالشكل التالي: 


public class Excepltlon ;: ISerlalizablé, _Exception 


{ 


J7 PUBLIC CONSTEUCTOLS 

publl1c Exception (string message, Exception innerExceptlon) ; 
publlc Exception (string message); 

puBlLiS ExXceBTIonRN (J; 

// Methods 

public VIrFtual Exception GeltBaseExcepLIon () ; 

PUBLIC VTIFLUAL TOIL GELCOD  ECTIDATCA(SSELALLZALIORNINEO 1F, 


StreamingContext context); 

// Properties 

EUDICT TFICCURL IDICEIONOTY Dal 1 OEE? J} 

BUbDLIC TIFLUAL STCFIng Helplink { GEE; Set; | 
publlic System.Exception InnerException { get; } 
publlc virtual String Message { Get; } 

PUDLLS VIFTUGAL STING SoOUECeE { Gel; BEL; | 
BUDLICT VIETUaL StEInNnG STackKIrace { GEE; | 
publl1c MethodBase TargetSite { get; } 
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اللاب العاشر الأخطاء و وعالدتها 


VB.NET 


PuUDIICG CLOSE ExcepEion 
Implements ISerializable 
Inherits _Exception 
' PUDLLE CONSTEUCCOES 
Public Sub New (ByVal message As String, ByVal innerExceptltion As Exception) 
ENG SUD 
Public Sub New (ByVal message As String) 
E SUD 
Public Sub New () 
End Sub 
' Methods 
Public Overridable Function GetBaseExceptilion () As Exception 
EN FUNCTION 
Public Overridable Sub GetObjJectData (ByVal info As Serlalizationlnfo, ByVal 
context As StreamingContext) 
ENG SUD 
' Properties 
Public Overridable ReadOnly Property Data() As I1IDictlonary 
GGL 
End Get 
End Property 
Public Overridable Property HelpLink() As String 
e 
End Get 
Set (ByVal value As String) 
End Set 
End Property 
Public ReadOnly Property InnerException() As System.Exception 
Ge 
End Get 
ENC FrOoDorty 
Public Overridable ReadOnly Property Message () As String 
GL 
End Get 
ENG PEOGEETEY 
PUDLIC UOverridable FropérTy Source) AS SEEING 
Ge 
End Get 
Set (ByVal value As String) 
End Set 
ENC. FrODErEY 
Public Overridable ReadOnly Property StackTrace() As String 
Gê 
End Get 
End Property 
PULL ROMI FEO TEE TETOETSTLEY BE METTOGEBASE 
Ge 
End Get 
End PrFODEIETEY 
EL CLASS 


سنحاو ل التعرف على الخصائص والطرق الاساسية لهذه الفئة : 
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اللاب العاشر الأخطاء و وعالجتها 


الجدول 10. 1. بعض خصائص الفئة 101 اCc€2×‏ "£ 


Throwing Exceptions ĞIrliiiwlll ga .4 


خلال تنفيذك للبرنامج يمكن ان يقوم البرنامج بعمل ۲07۷ K1‏ لخطاً ما متل عدم وجود 
ملف معين. سنتعلم كيفية قراءة هذا الخطآ والتعامل معه » لكن تظل هناك حالة أخرى ترغب انت 
فيها يعمل K.۲٥7۷‏ للخطاً » لنفترض انك تقوم بعمل )٣۴٤٣ء‏ تتأكد من عدم وجود الملف ومن 


ثم تقوم بعرض رسالة خطأً في حالة عدم وجود الملف بالشكل التالي مثلا: 


(System. IO. FIle. ExXIStES (TES \ AME ESE ")) 


Console.WriteLlLine ("there 1s no file"); 


If Not System.IO.File.Exists ("c:\ahmed.txt") Then 
Console.WriteLlLine ("there 1s no file") 
End LÊ 


لكنك ربما لم تقم باقتنااص خطاً ڪون الملف للقراءة فقط u‏ وترغب في صورة قنص اخطاء 


موحدة » أو لأآي اعتبارات أخرى ترغب في عمل ۸۲0۷ا للمبرمج مثلا لو كنت تبرمج فئة ليتم 
استخدامها . لأي من هذه الاعتبارات يمكن عمل K.۲07۷‏ لخطا بالشكل التالي: 
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اللاب العانشر الأخطاء و وعالجتها 


(!SyYSEEN: IO.TFLLEe.EKISTS ("E: aimed. TSE") ) 


throw new Exception ("there 1s no file"); 


VB.NET 


TE Not System. IO.File.Exists ("c?\ahmed.txt") Then 
Throw New Exception ("there is no file") 
EM IT 


هكذا تجد ان الفيجوال ستوديو قام باظهار خطأاً بالرسالة التي اوضحتها » تستطيع لاحقا قراءة 
كڪائن الخطا والتعامل معه ڪما تتعامل مع الخطا الذي ينتج تلقائيا من الفيجوال بيسڪ. 


Catching Exceptions cءlطۈطbذiلll اقتناص‎ .5 


البلوك فى حالة وجود الخطا دون ان يتسبب فى توقف البرنامج » بالشكل التالى مثلا: 


E 
{ 
x += 100; 
console.writeLine ("no errror"); 
1 
CaCO 
{ 
console.writeLine ("some error!"); 


VB.NET 


LEY 


x += 100 

Console.WriteLlLine ("no errror") 
Catch 

Console.WriteLine ("some error!") 
End Tre 


فى حالة وجود خطأً فى عملية الجمع السابقة فسيتم مباشرة الانتقال إلى 21-1 › فيما عدا ذلك 


سيواصل البرنامج دون المرور عليها › وفي كل الاحيان لن يتم ايقاف البرنامج. 
يمكننا ايضا عرض تفاصيل عن الخطاً الذي حدث باستخدام الخصائص السابقة 
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الباب العاشر الأخطاء و وعالجتها 


ا 
ا 

x += 100; 

console.writeLine ("no errror"); 
catch (Exception e) 


{ 


Console.WritelLine ("Method: {0}", e.TargetSite); 
Console.WritelLine ("Message: {0}", e.Message); 
CONSOLE WEITELINE (FSOUELCET UIT, E.S OUrCE),; 


LEY 
x += 100 
Console. WEILtELInNnE ("fio 6FEFOFE") 

Catch e As Exception 
Console.WriteLlLine ("Method: {0}", e.TargetsSite) 
Console.WriteLlLine ("Message: {0}", e.Message) 
LORNSOLE.WELLELINE (FOOUECE: UO, S.SOUECE) 

EME. TET 


لو كنا نعرف بعض الأخطاء التي يمكن ان تحدث» فيمكننا اختبارها وعرض الرسالة فيما عدا ذلك 
لنفترض المتال التالي في حالة كوننا نعرف أن الخطاً يمكن ان يكون بسبب تجاوز المجال 
€۷ وفيما عدا ذلك ستظهر رسالة بخطاً عام: 


x += 100; 
COoOnSOoOLé6.WwrEILtSLIne ("nO EFLrFEOE")} 


} 


catch (OverflowException e0) 


{ 


Console.WritelLine ("value of x more than up bound"); 


catch (Exception e) 

أ 
Console.WriteLlLine ("Method: {0}", e.TargetsSite);‏ 
Console.WritelLine ("Message: {0}", e.Message);‏ 
CONSOLE. WELLELINE (TSOUECE: {UF", €. SOuUECE);‏ 
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اللاب العاشر الأخطاء و وعالجتها 


VB.NET 


A 
x += 100 
Console.WriteLlLine ("no errror"”) 
Catch e0 As OverflowException 


Console.WritelLine ("value of x more than up bound") 
Catch e As Exception 
Console.WriteLlLine ("Method: {0}", e.TargetsSite) 
Console.WriteLlLine ("Message: {0}", e.Message) 
CONSOLE. WELTELINE (TSOouUECE: UF", Cl.SOUECE) 
EN TEY 


5. 1. استخداو ۴٣1٣211‏ 
تستخدم للتنفين بعد نهاية البلوك 1٤٥2ء‏ - اا ويتم تنفيذها فى حالة وجود خطاً او 
عدمه» د فمثلاً لو كنا نرغب في طباعة نص ما بغض النظ عن حدوث خطآ في ١‏ لمتخير × من عدمه 


نكتب الكود التالى: 


LEY 
x += 100; 
console.writeLine ("no errror"); 

ا 

catch (Exception e) 

{ 
Console.WriteLlLine ("Method: {0}", e.TargetSite); 
Console.WritelLine ("Message: {0}", e.Message); 
CONSOLE. WEITEeELINE (FSOUECET (UI, E.SOUrCE),; 

} 

FINALL 

{ 
Console.WriteLine ("somehing"™) ; 


} 


VB.NET 


LE 
x += 100 
Console.WriteLlLine ("no errror") 
Catch e As Exception 
Console.WriteLlLine ("Method: {0}", e.TargetsSite) 
Console.WriteLlLine ("Message: {0}", e.Message) 
CONSOLE. WELTLELINE (FSOUECE: WUE, E.S OUECE) 
FINALL 
CONSOLE. WEILLELÎnêe (Tsomeéehing"”) 
Enid TEy 
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الباب العاشر الأخطاء و وعالدتها 


break ۾pۈدختساl‎ .2 .5 


للخروج من الاستنثناء فى مرحلة ما » يمكن استخدام Exit Try gi break‏ بالنسبة للفيحوال 


ليسڪ . 


e «» 


Target Site pڻlدختسا‎ .3 .5 


توفر هذه الخاصية معلومات عديدة حول الفئة والدالة التى قامت يعمل 1۲07۷ ]ا للخطا» يمكن 


الاستفادة منها في عمل ع0601 لمعرفة مكان حدوث الخطا. 
5. 4. üwlخدpI HelpLink‏ 


تستطيع افادة مستخدم الفئة آو المستخدم بها » عن طريق وضع لينك معين يمكنه الا ستفادة مته 


بالشكل التالي مثلا: 


m += 100; 
CONSOLE. WELTELINE ("HG EEO; 


} 


catch (Exception e) 


{ 


e.HelpLink = "www.ahmedgamal-~space.blogspot.com"; 


} 


VB.NET 


IFY 
m += 100 


Console.WriteLlLine ("no errror"”) 
Catch e As Exception 


e.HelpLink = "www.ahmedgamal-space.blogspot . com" 
ENC: IEY 
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LL _ _‏ 
6. عول اخطاء خاصۃ 
يمكنك تعريف فئة من النوع خطأً يمكنك استخدامها لاحقاً في برامجك يتم اشتقاقها من 
الفثة ^1cationExcep10۸امpممAp‏ ڪما انڪ تحتاج E‏ لجعلها مشتقة من الفثة 
Ser1a1l1zab 1e‏ من اجل امكانية استخدامها في ال 11۸3١ا۳0٥۸‏ وخلافه » يمكنك تعريف 
خطاً خاص بالشكل التالي مغلا : 
public class NewExceptlion : ApplicationExceptilion, ISerializable‏ 
publl1c NewException ()‏ ۰ 
something here‏ 
NewException (string message)‏ 
something here‏ 
NewException (string message, Exception 1inner)‏ 
something here.‏ 
ILC‏ ال اوا 7 


protected NewException (SerlalizationlInfo info, StreamingContext context) 


{ 


// Add something here. 


} 
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الباب العانتر الاخطاء و وعالجتما 


VB.NET 


PubLIcG Class NewExceptlion 


InHEeFICS APBDIILCATCLONEXCEPEILORN 

Implements ISerializable 

Public Sub New () 
' Add something here. 

ENG SUD 

Public Sub New (ByVal message As String) 
' Add something here. 

ENd Sub 

Publlc Sub New (ByVal message As String, ByVal inner As Exception) 
' Add something here. 

End Sub 

' ال اعماة‎ 6LL CLO 

Protected Sub New (ByVal info As Serlalizatlonlnfo, ByVal context As 


StreamingContext) 


' Add something here. 
En Sub 
CLASS 


للمزيد حول الاخطاء واقتناصها يمكنك الرجوع إلى :MS0١N‏ 


رابط گے 


msdn. microsoft. com/en-us/library/ms229014(VS.80).aspX 


End 


http: 
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Collections ٽتاlرaیgوجتلا‎ 


الباب الحادى عشر lلنتجgږlaںٽ Collections‏ 


فى تطبيقاتنا البرمجية المختلفة عادة ما نلجاً لعمل ٥0١31١6١‏ يحتوي على عدة عتاصر 
من أجل ذلك كانت ال ۲۲۵۷ ورأينا ان بامكاننا عمل 3۲۲3۷ من الارقام والنصوص واخيرا حتى 
من فثات مختلفة. إا اننا فد نحتاج إلى بعض المهام الاكثر من تلك التي توفرها لنا ال 4۲٣3۷‏ 


من اجل هذا وجدت ال 5١0|ا٤ع|أامC‏ المختلفة» فى درستا هذا سوف نتعرف عليها إن شاء الله. 


System. Collectionsa InterfacesJl .1 


لو راجعنا الواجهات الموجودة فى ال ١0|٤ع|أم٤‏ لوجدنا الواجهات التالية: 


:1Collection 
تحتوي هذه الواجهة على بعض النقاط الاساسية مثل الل ه٥512 وال‎ 


]s5yn chron 1 zed‏ وخلافه » لها الشكل العام التالي: 


public interface I1ICollection : IEnumerable 
{ 

InL Count. {1 Gelt; } 

DOoOL. IsSVHAChNEONILZEed { GEE} J} 

object SyncRoot { get; } 

OI COGYTO{AEEAVY afFEavV, IGE ANd); 


VB.NET 


Public Interface ICollection 

Inherits ILIEnumerable 

ReadOnly Property Count () As Integer 

ReadOnly Property IsSynchronized() As Boolean 

ReadOnly Property SyncRoot () As Object 

Sub CopyTo (ByVal array As Array, ByVal index As Integer) 
End Interface 


N] C0 MP Ale‏ : تعرفنا علیھا سابقا. 
SLUICE‏ 


تستخدم كما هو واضح من اسمها من اجل الادلة» يمكن استخدامها لتخزين مثلا بيانات 
الموظفين وعناوينهم بحيث يمكن العتور بعد ذلك على الشخص بدلالة اسمه او عنوانه › تحتوي 
على دوال للاضافة والحذف وخلافه . الشكل العام لها بالشكل التالي : 
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اللاب الحادى عشر الننجویlaت Collections‏ 


pübDLIILEC Interface IDictilionary 2ICollectiony, LEnumerabls 
ا‎ 
DOOL ILSFIxéedS12e { CoC, | 
bool IsReadOnly { get; } 
object this[lobject key] { get; set; } 
ICOLLECTIORN KEVS {1 GEC? | 
1Collection Values { get; } 
vVOlQd Add(object key, object value); 
void Clear () ; 
bool Contains (object key); 
1IDICLIONnAFVEnNnüUmerFalLor GetEnumeralor 7; 
VOlLQd Remove (object key); 


VB.NET 


PUDLLE THCETTACE IDICTIONnAEY 
Inherits. ICollection 
Inherits IEnumerable 
ReadOnly Property IsFixedSize() As Boolean 
ReadOnly Property IsReadOnly () As Boolean 
Default Property Item(ByVal key As Object) As Object 
ReadOnly Property Keys() As ICollection 
ReadOnly Property Values () As ICollection 
Sub Add (ByVal key As Object, ByVal value As Object) 
Sub Clear () 
Function Contains (ByVal key As Object) As Boolean 
Function GetEnumerator () As IDictlonaryEnumerator 
Sub Remove (ByVal key As Object) 

End Interface 


: 1Enumerable 

تم شرحها سابقا. 

: LETIOMETEOECOE 

تم شرحها سابقا. 

LUOICTC LORIE ENUMELALOE 


interface J| gھ‎ Ilia « GetEnumerat or aãlIدl|‎ دجiw‎ 1Di1cti01^aFYy لو لاحظت في‎ 


الخاص بهده الداله › لها الشكل العام التالي: 
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اللاب الحادى عشر lالنجویlaتٽ Collections‏ 


public interface IDictionaryEnumerator : IEnumerator 


{ 


DICEIONAEFVENLET ENTEY { GEL, | 
object Key { get; } 
object Value { get; } 


VB.NET 


Public Interface IDictionaryEnumerator 
Inherits [IEnumerator 
ReadOnly Property Entry () As DictionaryEntry 
ReadOnly Property Key () As Object 
ReadOnly Property Value() As Object 
End Interface 


:TIHashCodeProv1der 
.GetHasNCode aãlاlدÛ| یل ectionاأco المعین باستخدام‎ hah c٥٤ يختص باعادة ال‎ 
ALET 


قائمة » هذا كل ما في الأمر > تحتوي على عدة دوال تسهل التعامل معها للاضافة والبحث والحذف 
و خلافه الشكل العام لها بالتشكل التالي: 


public interface ILI1ist :ICollection, IEnumerable 
1 

BOOL ISFIKGISI26( GOCE? | 

bool IsReadOnly { get; } 

object this[int index| { get; set; } 

int Add(objJect value); 


Toid CléaF 0 

bool Contains (object value); 

int IndexOf (object value); 

vVOlQd Insert (int index, object value); 
VOlLQd Remove (object value); 

VOILA RerioveAt (int index)j 
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اللاب الحادى عشر lالنتجgږlaتٽ Collections‏ 


VB.NET 


Public Interface IList 
TnhieFIlLs IColleclion 
Inherits IEnumerable 
ReadOnly Property IsFl1xedSl1ze() As Boolean 
ReadOnly Property IsReadOnly () As Boolean 
Default Property Item(ByVal index As Integer) As Object 
Function Add (ByVal value As Object) As Integer 
Sub Clear () 
Function Contains (ByVal value As Object) As Boolean 
Function IndexOf (ByVal value As Object) As Integer 
Sub Insert (ByVal index As Integer, ByVal value As Object) 
Sub Remove (ByVal value As Object) 
Sub RemoveAt (ByVal index As Integer) 
End Interface 


System. Collections Jû ٽlûأll‎ .2 


يحتوي على الفئات التالية: 


ArrayList ® 
Hashtable °“ 
Queue ® 
SortedList ® 
Stack ® 


ArrayList .1 .2 


هي قائمة 3۲۲۵۷ كما هو واضح من الاسم › تتمیز بنفضس سمات ال 3۲۲۵۷ من حيث تخزينها 
لعدة بيانات» اضافة لمميزات القائمة التى تسهل عمليات الاضافة والتعديل والترتيب والحذف 
و خلافه داخل عناصر هذه المصفوفهة. 
لنفترض ان لدينا فئة (سيارة) السابقة والتي تحتوي على اسم السيارة وموديلها » كنا نعرف 
مصفوفة منها باستخدام الأمر التالي: 


Cf 


Car[]| carArray = new Car[4]; 


VB.NET 


Dim carArray As Car() = New Car (3) 
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اللاب الحادى عشر التجویlaںتٽت Collections‏ 


ریما لم تکن تعرف انڪ تحتاج لاريع سيارات فقط › ربما تحتاج للزبادة او للنقصان » ريما ترغب 
بحذف واحدة متهم من المنتصف ... الخ » فكما ترى لا توفر لنا ال 3۲۲3۷ الكثير من الخيارات 
لتسهيل التعامل مع هذه الخصائص » ستحتاج لبعض الأوامر للحذف وخلافه. 

بداية قم بعمل 119ئ1 ل 1101اem.c011ecعاSys‏ لتكون قادرا على التعامل المباشر معها 


لاحقا. 


ڪو د ) CH‏ 


using System.Collections; 


VB.NET ا‎ 


Imports System.Collections 


لکن جاءت ا5 ۸۲۲3/11 لتلقي عن ڪاهلڪ اي مشاڪل بخصوص هذه العمليات » ڪل ما عليڪ 
هو تعريف 1ا5 1.1 ۸۲١۲27۷‏ بالطريقة التالية: 
ڪو د | CF‏ 


ArrayList carLlist = new ArrayList (); 


VB.NET E 


Dim carList As New ArrayList () 


والآن يمكتنك اضافة سيارة: 


CF 


Car temp = new Car ("BMW", 1990); 
CarlL1ıSst.Add (temp); 


VB.NET 


Dim temp As New Car ("BMW", 1990) 
carList. Add (temp) 


ڪو د CF‏ 


carList. Insert (temp) ; 
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اللاب الحادى عشر النجویlaتٽ Collections‏ 


VB.NET ا‎ 


في الناحية الآأخرى » تستطيع مسح كامل القائمة: 
ڪو د ) CF‏ 


CarLL1SstE.CLeaf (0) j 


VB.NET ع‎ 


CaAFLLSEs CLEAF (0) 


أو حذف عتنصر معين بيدلالة موقعه: 


CF ) کو‎ 


CarList .RemoveAt (4) ; 


VB.NET e 


CarList.RemoveAt (4) 


ڪو د CF‏ 


carList. Remove (temp) ; 


VB.NET 


يمكننا استخدام الخاصية ا١لات€‏ لمعرفة العدد» وبالتالي الدوران عليهم جميعا بالشكل التالي 


مثلا: 


LOE (INE 1 5 1 & CALL LSEVCOUNE;, LEE) 


LEMNp = (CEE CSCLISELLL) 
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اللاب الحادى عشر lلنتجlaıgتٽ Collections‏ 


FOF 1 As Integer = Û0 To carlist.Coünt.=— 1 
temp = DirectCast (carList (1), Car) 
Next 


يمكننا استخدام بعض الخصائص الأخرى مثل أ٣إاS0؟‏ كما تعلمنا سابقاء يمكننا تحويلها إلى 3۲١۵۷‏ 


عادية باستخدام الدالة »]0A۸۲۲A¥‏ الدالة ۸٥۷8۲٤88‏ ستعكس ترتيب القائمة» الدالة 1f‏ 0×ع€11۱d‏ 
تستخدم للبحث بالطريقة التالية» لنفترض لدينا السيارة ]€۳٥‏ ونرغب فى البحث عنها ضمن 
السيارات الموجودة » سيكون ذلك بالشكل التالى: 


CH 


int find = carList. IndexOf (temp, 0); 


VB.NET 


Dim find As Integer = carlLlist. IndexOf (temp, 0)‏ 
وهكذا تستطيع استخدام المتغير ١11١0‏ للوصول إلى مكان العنصر والتعامل معه كما تريد » كما 
يمكنك تحديد نقطة بداية البحث 0 كما حددنا او تغييرها او عدم استخدامها اصلا . 


HashTable .2 .2 


واحد من طرق تخزين البيانات ۲٥‏ 1اأ٤‏ 51۲۷ 1033ء مهمته الاساسية تسهيل البحث عن البيانات 
المرتبطة › إذا لم تكن قد مرت عليك هذه ال عا٥ةا‏ "كج۳ من قبل فانصحك بالتعرف عليها من 
خلال ویکبیدیا هنا: 


رابط گی 
http://en.wikipedia.org/wiki/Hash_ table‏ 


وباختصار شديد » فال [251121٥‏ هي عبارة عن مجموعة من المفاتيح €۷5) يخزن معها من 


الدلائل |١۵48×65‏ تشير إلى مكان باقي القيم المرتبطة مع المتاح الاساسي. 
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KEYS Iindeaxas Key-value pairs 
(records) 
| dohn Smith | i sami |+ | 


Lisa smh ag | Jo mih [+1 568-24 


Ear | SamDoe |+1-555-5030 


الصورة 11. 1. بiية HashTable Jı‏ 
في السابق كنا نقوم بتكوين ال ١٠1ط12آ١1كه]‏ مبارة عن اكأا ٣)8۵‏ أا يرتبط كل عنصر فيه 


بList Linked‏ اخرى» وكنا نقوم يعمل دواله واجراءاته المختلفة» أما الآن فيمكنك بيساطة 
تعريف ٠1ط3‏ 2511 والبدء فى وضع البيانات فيه مباشرة باستخدام الأوامر التقليدية 


Add, AddRange‏ و Remove‏ و خلافه مما تعلمناه في الدرس السابق. 
Queue .3 .2‏ 


الترجمة الحرفية له في الطابور › ومع اني لا استسيغ بعض الترجمات لكن ا بآس من 


توضيح ان ال ع٥1٥01‏ ما هو إلا طابور فعلا » حيث يتم دفع البيانات إليه باستخدام 1€ "۸4)1٥‏ 


واخراجها باستخدام ع1 (8)1٥‏ أول الداخلين هو اول الخارجين فنحن هنا نتحدث عن طابور 


إذا كنت تبرمج برنامج لتلقي طلبات العملاء فمن الطبيعي ان تضعها في طابور ليتم 
معالجة الاسبق بالوصول اولاء في السيرفرات ايضاء وربما اشهر امثلة ال نا0 هو البروسيسور 
(المعالج) حيث يتم ترتيب المهمات ليتم ادخالها إلى المعالج الأول وصولاً للطابور هو الأول 
تنفيذا بابسط صورة › لكن لا تنس انه في نظم المعالجات الحديثة هناك العديد من العناصر التي 
تتحكم في دخول البيانات مثل الاولوية اضافة لنظام ال ١٥ا5‏ حيث ¥ يتم تنفين ال )كةآ مرة 


واحدة ... الخ. 


رند أن فد كرا .ساف رض طانور العملاء الكل اتال 
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اللاب الحادى عشر lلنجıgعlتٽ Collections‏ 


Queue empQueue = new Queue () ; 

employee temp = new employee (); 

for (int i = O; 1L < 10; 1#) 

{ 
LEMP: USETNANE S2 CONEOLE.REAOLINE 
EMP OUEUE. ENGUGUS (EEMD) j 


VB.NET 


Dim empQueue As New Queue () 

Dim temp As New employee () 

For 1 As Integer = Û0 To 9 
tLtemp.userName = Console.ReadLine () 
empQueue. Enqueue (temp) 

Next 


لو قمنا الآن يعمل 100٥‏ لنعمل 0٥0٩1٥1٥‏ ستجد ان اول الموظفين دخو لا سیکون آو لهم خروا: 


طبعا ا تنس أن بامكانك استخدام بعض الخصائص مثل ١ا0٥‏ وخلافه تلك التى شرحتاها فى 


الدرس السايق. 


الطابور › أما الدالة Peek‏ فھی تعید او ل عنصر فى الترتيب ولكنها تحتفظ به فى الطابور كما 


کان 


مع تطبيق هذه الفئة» أضن اظن انك تذكر لو كنت درست ه١۲ ٤]1u‏ ل5۲ aأة10‏ وكيفية تطبيق ال 
Queue‏ باستخدام ال اisا linked‏ » وال circular queue‏ والکتیر مما لن تزعج نفسكڪ به منذ الآن 


فصاعدا مع هذه الفئة . 
Stack 4 .2‏ 


مثل ال ع1٥01‏ فيما عدا انه يتبع تقنية غOutpU Last اnput First‏ - ۴0ا » حیث ان 
العنصر الآخير في الدخول هو الأول في الخروج › يتم ادخال العناصر باستخدام ٣كا‏ ويتم 
اخراجها باستخدام ع0 » ال K×عع‏ تقوم بمهمتها كما هي في عرض العنصر الأول وهو في 
حالتنا الآخر ET‏ دون حذفه من ال k-٤2]ا95.‏ 
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اللاب الحادى عشر lلنتجgږlaتٽ Collections‏ 


تعريف ال 52٤K‏ يتم ببساطة بالشكل التالي: 


CH 


Stack JobStack = new Stack (); 


VB.NET 


Dim jJobStack As New Stack () 


الاستخدامات 


يسهل تصور استخدامات من اجل ال 01٥1٥8‏ ذلك ان معظم تطبيقات حياتنا اليومية تعتمد 
على ذلك » حيث الواصل أو لا يخدم او لا > لکن SEC J‏ يمبدئة المنافي للعدالةه ريما سيكون 
غريبا بعض الشىء تطبيقه في حياتنا الحقيقية › لذا فإن استخدام ال 2٤×‏ ا؟ يقتصر في العادة 
على تطبيقات الكومبيوتر. 
ابسط استخدام لل ٤3ا5‏ هو حل المعادلات في البروسيسور» إن المعادلة: 
A+B‏ 
تدخل إلى البروسيسور بالشكل التالي: 


AB+ 


يسمى هذا الاسلوب باسم «postfiX‏ و فی البروسيسور يتم ادخالهم في SLACK‏ لتنفيذهم حيث ان 


تنفيذهم لن يتم بترتيب الوصول » مثال آخر فى ترجمة ال ١٣عاأم"0۳)‏ ايضا. 


في المرفقات برنامج يوضح كيفية التحويل بين ×أ۴أكئمم و ×أ٣أ‏ كان احد مشاريع الكلية في 
الفرقة الثالثتة ل م6۲0۷ ×1۴لا۳٣»‏ يوضح البرنامج كيفية التحويل وكيفية يقوم البروسيسور 
بوضعهم في )٤3ا5‏ وتنفيذهم » قم باختيار ۷|6۷ لاستعراض سرعة عرض الخطوات » يمكکنڪ 
الحل باستخدام الارقام او الرموز ويمكنك الاختيار فيما بينهما من اعلى النافذة . هذا إذا كنت 


مهتما ببيعض التفاصيل. 
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اللاب الحادى عشر lلنتجgږlaتٽ Collections‏ 


رابط ھے 
http://vb4arab.com/vb/uploaded/3/21207604046.rar‏ 


آو يمکٽنڪ الإطلاع على ناتج عملية التحويل مباشرة من هذا الموقع 


رابط ھے 


http://scriptasylum.com/tutorials/infix_postfix/infix_ postfix. html 


مزيد من التفاصيل تجدها فى موقع M50١‏ هنا: 


رابط ھے 


http://msdn2.microsoft.com/en-us/library/aa289149(VS.71).aspX 


كل ما سبق فى هذا الدرس ينطبق تحت علم 0ata 5)۲ ٣آا1ل ۲٥‏ » يمكتنك الانطلاق من هذه النقطة 
إذا كنت ترغب فى معرفة الكثير عن هذا العالم الذي يتداخل معك كثيرا فى عالمك » سيفيدك 
ان تكون مطلعا على اساسياته اضافة لعلم ال sڪ”™Algorith.‏ 

ايضا هناك ما يعرف باسم Syst‌en.c011ecti0ns. Spec1a2112٤d‏ ويحتوي على فئات 


الخرق إاكتر تخصضص منة من الات السانةة. 


2ر 


البروجۂ المتقدمہ” في ال 


.net 


الباب التانى عشر البروحة المتقدمة فى ال أع.٠.‏ 


في هذا الفصل سوف نتعرف على بعض عناصر البرمجة في أ€١.‏ منها الجديد الذي ظهر لأول مرة 
مع 2008 أ€١.‏ فقط ومنها عناصر موجودة قبلا ولكنها متقدمة نوعا ما ء لذا قمنا بتجميعها سوية 


فى هذا الباب . 


Generics Jl .1 


نواصل فى هذا الدرس مع واحدة من التطورات الجديدة مع 2.0 ..net Framework‏ هى Jı‏ 


۴5 لتعطی بعدا جدیدا لمفهوم ال 0۷6۲۱0۵۵1٣8‏ لنفترض مثالا ما للطباعة بالشكل التالي: 


PUBLIC SEALS TOI GEINT(IREÊ XX) 
أ‎ 


Console.WriteLlLine ("Print As Integer {0}", x); 
} 
PUBLICS SATII FOL GEIR CLONG 3) 
1 


ConS0Le.WELTeLine ("PFINT AS Long {OF";, KB; 
} 
CUDI SLOLEIC TIC GENE (OEE 8) 
{ 


CONSOLE: WEICELINE (PELINE AS SLELING TOF, So; 


VB.NET 


Public Shared Sub print (ByVal x As Integer) 
Console.WriteLlLine ("Print As Integer {0}", x) 

ENC. Sub 

PubDIICG Shared Sub. Grinl{BYVal xX As LONG) 
Console.WriteLlLine ("Print As Long {0}", x) 

ENT. Sub 

PUDLILC Share Sub Grinl{BVVaL x As StEIn0) 
CONSOLE. WELTCeLIRNE{( "PEIN AS SLING (OFT, XK) 

ENG Sub 


الكود كما هو واضح قام بعمل تلاث دوال بنفس الاسم لاستقبال بارميترات مختلفة » وهكذا تحد 
انك تستطيع فى الكود استدعاء الدالة الطباعة للارقام او لل |0١8١‏ او للنصوص » جرب عدة 


عمليات لطباعة انواع مختلفة وشاهد جملة الطباعة » على سبيل المتال الأوامر التالية: 
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الباب التانى عشر البروحة المتقدمة فى ال أ٥٠.‏ 


print ("Ahmed") ; 
DEINE, 
prIint{1000000000000) § 


Print ("Ahmed") 


PFIRNE (LA) 
Print (1000000000000) 


سيكون ناتج الطباعة بالشكل التالى: 
ا عا | ى ley CA Usersf Ahmed Documents Visual Stadio 200B Project Console Applicator Console AppliE:..‏ 
Print As String AhRêed‏ 


Faint HAs Integer l2 
FFint Ês Lonqî i8BBABBBBBARAEAAE 


الصورة 12. 1. ناتج تنفين العمليات 

ال ٥٤أ١٣ G١8‏ ستغير المفهوم نوعا » حيث ان بامكانك الآن تعريف دالة ¥ تستقبل نوعا معينا من 
المتغيرات » بل هي تستقبل <1> وتتعامل معه على هذا الاساس › لذا قد نستطيع افتراض الدوال 
الثلاث السابقة بالشكل التالى 


GUDILCG SCaTEIC TOI GEINLSCTI DT 
{ 

CORSOLEL.WIEITCeLInRe (PEIN AS UF lI", LOPEOT(L, KF 
ا‎ 
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الباب التانى عشر البروحة المتقدمة فى ال أ٥٠.‏ 


VB.NET 


PUDILILS Shatéû Sub GprIinlL(Of TT (BVVal xX K8 1) 
Console.WriteLlLine ("Print As {0}: {1}", GetType(T), x) 
ENT Sub 


واللآن في حالة تطبيقنا لنفس المثال السابق » سوف يكون الناتج كالتالي : 


| BO EY Ler Ahmed 7 Documents Visual Shido 200A Project CongaleApplicaioanmd Consol aApple., | × 


Print As Syaten.String: Ahmed 
Print As Systen.Intl2: 12 م‎ 
Print A% Systen-.lontb4A: 1BBBBBBHHHHEE 


الصورة 12. 2. ناتج تنفين العمليات 


Structure and Class Generics .1 .1 


في الدرس السابق تعرفنا على ال كك١0"ا€"‏ التي تطبق ال ۸6۲٤5‏ 6۵» ايضاً ال €5ء5ھا€ وال 
ئ6 يمكنها تطبيق هذا المفهوم لبعض البيانات بها » سنفترض مثال ال ٤|858‏ وما ينطبق على 
ال 01855 بطق على ال £00 582. 


لذ“ ر فة 3 متوي عا البضائع ( و حیث ان لدبنا نو عین من البضاتع يحنوي النوع الأول 


على الاسم وهي تلك البضائع التي يتم تصنيعها في المحل ( انوع من الجبن او الزبادي ) و بضائع 
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الباب الثانى عشر البروجة المتقدوة فى ال أ٥.١.‏ 


آخرى جاهزة تحتوي على الباركود » بهذه الطريقة نسنتج ان حقل 11۳۷ا١ع10]‏ قد يحتوي على 


اسم في بعض البضائع ورقم في بضائع أخرى. 


الحل التقليدي كان ليعتبر وجود فثتين منتفصليتن»› آو في آحسن الظروف وضع قيمة 
منطقيةه لتحديد اذا ما كنت ساستخدم حقل ال ع2۳٣١‏ ام حقلJ «NUMbCF J|‏ لكن مع ال 


۴6 تم تغيير هذا المفهوم › في هذه الحالة ستصبح الفئة بالشكل التالي: 


GURL OIE DEUCES 

أ 
private T Identify;‏ 
BUDELE SEOOUCL(T TAL)‏ 
{ 


Identify = val; 
Console.WriteLlLine (Identify); 


PULTE CLASS OEOQUCL{OE TL) 
Private Identify As 1T 


PUBLIC SUG New (BYVal Val AS T) 
Identify = val 
Console.WriteLlLine (Identify) 

EN Sub 

End Clas 


والآن يمكنني تعريف كائن من النوع الأول بالشكل التالي: 


CH 


PEOIUOCTEINL DEG =2 HEF pPEOOUCTCINE (LOOL, 


VB.NET 


Dim prd As New product (Of Integer) (1001) 


أو من النوع الثاني بالشكل التالي: 


CF 


DEOCUCE<SSTEING> DE = NEY OEOUUCE<SSLEINOZ(TSOMES BPEOQOUCLT 


2 7( 


الباب التانى عشر البروجة المتقدوة فى ال أ٥١.‏ 


VB.NET 


DIM. pI AS NEW GIOOUCL(OE SLEING) (SOME FEMME 


Generic Collection .2 .1‏ 
كما تعرفنا في الدرس السابق ان بامكاننا عمل 455ا ٣أ٣ 68١8‏ اصبح الدور الآن على عمل 
ectionااCco Generic‏ ستقوم بعمل فئة تستقبل عدة فتات ويقوم بعدة عمليات متل 


Add, Delete ... etc‏ كما تعلمنا سابقا › هذا مثال على ٩0|اء‌|ااه‏ ما: 


pBUbBLIC CIQAS MV COLLECLCIONKT 
٠ GrFIivalte LISCE<T> MVLLST = NEN LCISC<CT> O; 
public T GetlIltem(int pos) 
return myList [pos]; 
e void AddItem (T it) 
١ MVLLSLSAGA LE), 
e vOlQd ClearCars () 
myList.Clear (); 
} 


VB.NET 


FUbDIIC ULASS MVCOLLECELONOE TIT) 
Private myList As New List (Of T) () 
Public Function Getltem (ByVal pos As Integer) As 1T 
Return myList (pos) 

ENC FUNCLION 

PuUbIlIIC Sub Additem{ByVaLl 1it As T) 
MYLLSLAGOLE) 

ENC BUD 

Public Sub ClearCars () 
myList.Clear () 

End SUD 

ENC CIASS 
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الباب الثانى عشر البروحة المتقدوة فى ال أ٥.٠.‏ 


طعا فاتك اضاف الكر من الخضائصن وريها تعض الخصانض التخبر .متوقرة اضلا ليحك 
و خلافه » هذا ما يسمى بال ١0|ا٤عاأام G٣٤‏ حيث يمكن فى مراحل لاحقة الاعتماد عليه يبدل 
ال ١S‏ 0|ااع ام العادية حيث يمكن ان يستقبل ٣2ع‏ او .... ٤۴٤۷ہام۳‏ إلى غير ذلك من 


الخارات » نانقکل اتتائى متلا : 


Identify = val; 

Console.WriteLine (Identify); 

MYCOLLECTION<CAE> MyCaAES = NeW MyCoOLleclionSCaE> 0; 
MYCAEFS.AQALEEM(EEMEP) 

MyCollection<Employee> myCars = new MyCollection<Employee> () ; 
myCars. AddItem (tempEmployee) ; 


Dim myCars As New MyCollectilion (Of Car) () 
myCars.AddItem (temp) 

Dim myCars As New MyCollectlon (Of Employee) () 
myCars.AddItem (tempEmployee) 


آو حتی ارقام: 


CF 


MyCollection<int> myCars = new MyCollection<int> (); 
myCars.AddItem (12); 


VB.NET 


Dim myCars As New MyCollection (Of Integer) () 
myCars.Addltem (12) 


هنا ظهرت لنا مشكلة تتعلق بكون ال ١0|ا٤ع|اأاه€‏ ٤٣8١ع‏ الخاص بنا يحتوي على خصائص متل 
ع"". لعرضها » وهذا ما لا يتوفر مثلا لكل الفثات او للارقام مثلا » من هنا جاءت لنا الكلمة 


المحجوزة ۲€ w€‏ والتي سنتحدث عنها في الدرس القادم. 
1. 3. استخدlڻٍ where 1T‏ 


يتیح لنا هذا الشرط فى عمل ال ۸٥0|اC٤‏ ءاام e6٣٤‏ ان ا نقبل سوى بعض الفئات › يمكننا 


وضع الشروط بآحد الطرق التالية: 
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الباب التانى عشر البروجة المتقدوة فى ال أ٥.١.‏ 


الشرط المعنى 


لا يقبل سوى من النوغع Ref FICE TYP°€‏ 


ا بد ان یکون مشتق من 1255ع معین او يطبق 


EG LE 
: 6 1 a لے‎ 


الجدول 12. 1. استخدام الشروط مع ال 6٥۸۵۲٣5‏ 
بهذه الطريقة يمكننا دمج عدة شروط مع بعضها › لنرى المتال التالي سوية: 


Cf 


public class Example <T> where T : class, IComparable, new () 


VB.NET ا‎ 
Public Class Example (Of T As {Class, IComparable, New}) 


هذا يعني ان | لا بد ان تکون ۲۵۴8۲۵۸٤٥۲٥‏ . تطبق الواجهة ٠21٣2م"0٤1‏ وتحتوي على 
.Constructor‏ 
ايضا المثال التالى: 


Cf 


public class Example<K, T> where K : class, new() 
where T : IComparable<T> 


VB.NET 


Public Class Example (Of K As {Class, New}, T As IComparable (Of T)) 


هذا يعني ان × ¥ بد ان تکون e۲۵ ۸٤٥€‏ ۸€ و لھا ٣0ا 0s u‏ فيما 1 ل بد ان تطبق الواجهة 
[Comparable‏ . 


والآن » اصبح بامكانك التحكم بعض الشيء في 1 بدلا من جعلها مفتوحة للجميع. 
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الباب الثانى عشر البروجة المتقدوة فى ال أ٥.١.‏ 


Delegates JI .2 


«advanced .net programming Jı 


نواصل 
.DelegatesJı‏ 


رحالتا مح مو عدنا هده المرة 


2 


قبل ان نشرح تركيبها و كيفية التعامل معها › سنقوم بشرح لماذا نقوم باستخدامها. 


لنفتركن. غدة دوال. تستقل ا18 وتحيد 106 ايضا خاصة حمقات اتحونل > وهی على الشکل 


ConvertEGToD(int EG) 
EG * O40, 
ConvertRSToD (int RS) 
ET el, 
ConvertEGToRS (int EG) 
EG * 1.45}; 
ConvertDToRS (int D) 
SS ey 
ConvertDToEG (int D) 
f Ops 


ConvertRSToEG (int RS) 


RS ZZ 1,45} 


HUBLI IRE 


EELUET 
ر‎ 
PUBIILE IRE 
{ 


return 
N 
{ 


return 
ا‎ 
DUDIIGE ARE 
{ 


return 
} 
BUDLILT. LAE 
{ 


return 
1 
PUBL An 
| 


LEL UET 


233 
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VB.NET 


Public Function ConvertEGToD (ByVal EG As Integer) As Integer 
RELCUEDN. EG * S.45 

ENC FUNCTION 

Public Function ConvertRSToD (ByVal RS As Integer) As Integer 
ReLUED RS.* 315 

EHC FünCTILon 

Public Function ConvertEGToRS (ByVal EG As Integer) As Integer 
Return EG * 1.45 

ENC FURNCELON 

Public Function ConvertDToRS (ByVal D As Integer) As Integer 
RETURN DD * L.1 

Enid FuncClLIon 

Public Function ConvertDToEG (ByVal D As Integer) As Integer 
RECUTD D7 545 

ENG. FUnCE Lon 

Public Function ConvertRSToEG (ByVal RS As Integer) As Integer 
Réturn RS / 1.45 

ENC FUNCTION 


ڪما لا حظت فعلاء فهي عدة دوال تستخدم للتحويلات المختلفة بين ثلاث عملات» الجنية المصري 


والريال السعودي والدولار الآأمريكي. 


طبعا يمكننا عملهم في دالة واحدة وارسال متغير يمثل رقم التحويل › لكننا لن نستطيع عمل ذلك 
مثلا مع دوال اكبر ومختلفة › لذا فهذا المثال للتوضيح. 


الآآن في برنامجنا سنقرأً البيانات من المستخدم » ومن ثم نستخدم جملة شرط 1٤‏ او C۸اSW1‏ 


لتحديد اي دالة سنقوم بارسال البيانات إليها » هذا مختصر للكود المكتوب: 


Lf (Operation == 0) 
result = ConvertDToEG (userlnput) ; 
else 1f (Operation ) 
result = ConvertRSToD (userlnput) ; 


If Operatlon = 0 Then 

result = ConvertDToEG (userlnput) 
HElself Operation = 1 Then 

result = ConvertRSToD (userlnput) 
ERE. LL 


ولكن لنفترض اننا فقط الآن نود معرفة نوع العملية دون تنفيذها وعرضها للمستخدم حيث 


ستننفذها لاحقا › هنا يعني اننا سنقوم بذات الاختبار مرتين › مرة للعرض على المستخدم ومرة 
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لتنفيت ١‏ تة انض آلا تتفق معي في انك قد تحتاج لتنفين العملية مرتين في مكانين مختلفين»› 
وما دمت ا تحتفظ سوی برقم ال ١10أaاعمO‏ إذا ستضطر لعمل جمل الشرط مرة أآخرى. 


من أجل هذا وجدت ال es€اgaء0el|e.‏ 


2. 1. تعرڀف Delegates JI‏ 
لو اردنا تعريف ك٤3ع0€|6‏ لمجموعة دوال »اول ما نحتاج إليه ان تكون هذه الدوال من نفس عدد 
البارميترات . ايضاً لها نفس ال أام ٣ا‏ وال utاماuاه‏ » لذا سيكون ال عةعءاع0 الخاص بدوالنا 

بالشكل التالي: 


CH 


BUCILG OEE IIE WDE EIR VALUE), 


VB.NET 


Public Delegate Function myDelegate (ByVal value As Integer) As Integer 
والآن كل ما على فى جملى الشرطيبة ان احدد لهذا التفويض - إن صحت الترجمة - الدالة‎ 
المسؤول عنها › لذا ستكون شروطا المختصرة بالشكل التالى‎ 


(Operatlon == 0) 


myDelegqate aDelegate = new myDelegate (ConvertDToEG) ; 
result = aDelegate (userlnput) ; 

1 

else 1f (Operation == 1) 

{ 
MYDELEGALE ADELEGELE = NOY MU DELEGEEE (CONVERS TOD;, 
result = aDelegate (userlnput) ; 


VB.NET 


If Operation = 0 Then 
Dim aDelegqate As New myDelegate (ConvertDToEG) 
result = aDelegate (userlnput) 

Elself Operation = 1 Then 
Dim aDelegqate As New myDelegate (ConvertRSToD) 
result = aDelegate (userlInput) 

Ent IF 
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ايضا بامكانك تأخير الشرط الآخير الذي يقوم بتنفين ال ٥ةعءاع0‏ للنهاية › او تكرار استخدامها 
مرة أخرى » حيث ان ال عةع0€1۴ه قد اصبحت تعرف اي دالة تختص بتنفين هذه العملية الآن › 


لذا يمكنك كتابة الكود بالشكل التالى : 


(Operatlon == 0) 


MYUESLETAEE ADELE NEw MYUC LEGO DE(CONVEELUTOEG; 
lL 1f (Operatlon == 1) 
MIDGET E DELEGE MEN MYDICE (CONVEETCRSTLOD 
1 فنا الاو اقزر يعض نفدت‎ 
result = aDelegate (userlnput) ; 


VB.NET 


If Operatlon = 0 Then 

Dim aDelegqate As New myDelegate (ConvertDToE6G) 
Elself Operation = 1 Then 

Dim aDelegqate As New myDelegate (ConvertRSToD) 
EM. LEF 


فا الاواق خض فة" 
result = aDelegate (userlnput)‏ 


وهكذا » يمكنك تآخير استدعاء الدالة حتى تنتهي من تنفين آي أوامر مرتبطة دون ان تقلق من 


أنك ستعيد التآأكد مرة أخرى › هذه واحدة . 


والتانية يمكتنك عمل التأكد فى دالة منفصلة واعادة ال ع٤أةععاع0‏ جاهز للتنفين » هذا يفيد 


كثيراً في حالة العمل على شكل مجموعات . 
2. 2. lلiڪحlaڌ Events‏ 


لو جربنا الآن ان نقوم بعمل حدث معين لأي موظف عندنا (مرض ... الخ أو لاي سيارة 


(حادث اصدام ... الخ) ڪنا نقوم بذلڪ اا عن طريق ۴5٤2ععا٥0‏ باسم lin Event‏ > ونقوم 
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بتمرير الدالة الخاصة بالحدث له › وإذا كنت قد توسعت في ال كعاةععاع0 فأنت قادر على معرفة 
انك تستطيع عمل أكأا بالاحداث التي تم تنفيذها على هذا ال ع€أةعءاع0. 

اللآن سنتعلم الآمر بطريقة جديدة عن طريق الكلمة المحجوزة 5/٥٣‏ ... 

سنعرف في البداية eةع6ا06‏ مسؤول عن كافة الأحداث التي تحصل للسيارة متلا لعمل 


مegatاDe‏ يستقبل نص الرسالة المطلوبة : 


ڪو د ) CH‏ 


publlic delegate vold CarEventHandler (string msg); 


VB.NET ا‎ 
Public Delegate Sub CarEventHandler (ByVal msg As String) 


والآن سنقوم بتعريف يعض الاحداث: 


CF ) ڪو د‎ 
public event CarEventHandler Exploded; 
publl1c event CarEventHandler Damaged; 
VB.NET 


Public Event Exploded As CarEventHandler 
Public Event Damaged As CarEventHandler 


الآن يمكنك ببساطة من خلال الكود تنفيذ اي حدث فيهم بالشكل التالي: 


CF 


Damaged ("my car"); 


VB.NET 


Damaged ("my car") 
وأيضاً يمكنك اختبار اي 1111 == ٣ع اء ام ا لمعرفة إذا كان تم اطلاقه قبل ذلك أم ا‎ 
لمعرفة هل السبارة متلا تم تدمترها آم ل‎ 
: آخر نقطة » لاضافة دالة الحدث إلى الكائن‎ 


CF 


Car.EngineHandler d = new Car.CarEventHandler (CarExploded) ; 
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VB.NET 


Dim d As Car.EngineHandler = New Car.CarEventHandler (CarExploded) 
حيث يتم تعريف الدالة ك١ع٥لك0٥1ع×٤۲٤C4 لتتفين المهمة المطلوبة وهى اظهار رسالة بناء على‎ 
: بالشكل التالى مثلا‎ » 0۳039٥ النص المرسل والذي تم ارساله فى الحدث‎ 


pBUDLILT VOILG. CarExplOded(SEFEIRT MSG) 
{ 


Console.WriteLlLine (msg); 


} 


VB.NET 


Public Sub CarExploded (ByVal msg As String) 
Console.WriteLine (msg) 
En Sub 


C# yû hãa Anonymous Methods JI .3 


إذا كنت قد استوعبت الدرس السايق عن ال كعاةعع اع( فأنت تدرك أن بامكانك استدعاء 
دالة باستخدام متغير من النوع ٥€‏ ا0192 . 
وبعد الدرس الخاص ب كأ١‏ £۷8 اصبحت تدرك ان بامكانك اضافة اسم دالة ليمتل الحدث 


الذي قمت ببرمجته بالشكل التالى مثلا: 


CH 


L.SomeEvent += new SomeDelegate (MyEventHandler) ; 


والآن لنفترض انك ل تريد استدعاء الدالة سوى فى هذا المكان فقط u»‏ لذا سيكون من المكلف 


تعريف الدالة ومن ثم استدعاءها فى عةعء‌اعم0 . هنا يظهر لنا ما يعرف ڊlس۾م Anonymous‏ 


6ع حيث بامكانك تعريف الدالة وسط الكود. 


لنرى الكود التالي مثلا: 


t.SomeEvent += delegate { 


Console.WriteLlLine ("Some Text"); 


} 
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نعم هذا صحيح ولكن فقط مع #)ا. كما ترى اصبح الآن بامكانك تعريف الدالة في موقع 
استخدامها فقط » يمكن ايضا ان تكون الدالة تستقبل عدة بارميترات بالشكل التالي مثلا: 


L.SomeEvent += delegate (object sender, CarEventArgs e) 


{ 


Console.WriteLine ("Some Text {0}",e.msg); 


1 


ایضا بامكان ال ك0" Anonymous me†‏ ان تصل إلى المتغيرات الموجودة في الدالة التي تم تعريفها 


4. اسننتاد أنواع المتغيرات 


في ايام الفيجوال بيسك 6 » كنا قادرين على تعريف متغير دون تحديد نوعه بالشكل التالي: 


في الواقع كان الفيجوال بيسك يقوم بتعريفها مبدئيا من النوع ا٤6٥0‏ في حين كان مثل هذا 


الامر ممنوعا في اللغات التي تتبع عائلة السي. 


مع 2008 أ€١.‏ » اصبح بامكان السى شارب تعريف متغير بدون الحاجة إلى تحديد نوعه بالشكل 


التالي مثلا: 


ڪو د ) CF‏ 


VB.NET 


Dim x = 2.3 ° double 


الهدف من هذه العملية هو تعريف متغير قادر على حمل اي نوع من البيانات » لكن كن حذرا › فلن 
يمكکٽڪ مثلا تعريف 74٣‏ فى الفتة مباشرة » او فى بارميترات الدالة أو فى ال ١۲1۸٤10آا٥]‏ 
106 1 ارا لا یگن تل 02 أن تحمل فة 011 
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المثال التالي يجمع الأخطاء التي لا يمكن استخدام 721٣‏ فيها: 


CLASS ClaSSnamê 


{ 


7 ١ اقرة ا في دعر يكن‎ 
private var varInt = 10U; 

// ك او كيارميتر التعريف يمكن لا‎ عeاurn‎ vaاue‎ 
var functionname (var x, var Yy) { } 

TOI1Qd. Some FUnNnCLLON (0) 


أ 
S1‏ ا تقل أن مك ١‏ 7 
var varNull=null;‏ 
01 اعم جحل ان حفن ١‏ ارح مهلاو وجل // 
var? varNullable = 12;‏ 
ها عبن من يجه ا 7 
var Mm;‏ 


Extension Methods aãدتggلا الدوال‎ .5 


إاJ Extension Methods‏ واحدة من خواص 2008 أ0€. الجديدة › تتيح لك هذه الخاصية 


التعديل على فثات موجودة مسبقا واضافة دالة أو دوال جديدة. 


لنفترض اننا نريد اضافة دالة للفئة ٣11١3‏ ا5 لتقوم بالتآأكد من صحة البريد الالكتروني › 


سنقوم بعمل دالة تستخدم ۸٠9 ٠×‏ بالشكل التالي مثلا: 


pUbDLIILC . SLaLLC Clas EK enêlıons 


pBUDLICG SLaCIC BOOL ISVALIQEMALLAQAEESS(ENLS SCEING 3) 


{ 


Regex regex = new Regex (@"^ [\w-\.]+@ ([\w-]+\.)+[\w-] {2,4}$"); 
return regex. IsMatch (s); 
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VB.NET 


Imports System.Runtime.CompilerServices 
Module StringExtensilions 


<Extenslon ()>_ 
Public Function IsVal1idEmaillAddress (ByVal s As String) As Boolean 
DIM EéGoX KS Ne REGO (WEIL REI OWE WE. WEC GET) 
Return regex.lsMatch (5s) 
ENG. FUNCELOR 
End Module 


والآن » يمكننا بكل بساطة تعريف متغير ۲1٨١3‏ ا5 بالشکكل التالى: 


SELIG MallExamplé =5 FEIT ICMALL, COM; 
MéSSaGEBOK . SHOW (MALLExXaMPLeE. LSVALTOEMELLAAIEFESS. TCOSEEINGT OF 


VB.NET 


Dim mailExample As String = "email@Gmail. com" 
MessageBox. Show (malilExample.IsVal1dEmallAddress.toString () ) 


Automatic Properties 


سابقا ومن اجJ Properties «lil‏ كنا نقوم بتعريف دوال آأ٥5‏ و اأع٥U‏ للقراءة والكتابة 


بالشكل التالي مثلا: 


BUDLILG OLAS MCOLS 

{ 
private string _name; 
BUbDLILE SEEING hame 


| 


get {return _name; } 
set {_name=value; } 
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VB.NET 


PUULIG CLG IMyCLaSS | 
Private _name As String 
Public Property name () As String 
GEL 


Return _name 


End Get 
Set (ByVal value As String) 
_ hame = value 
End Set 
End Property 
EHd CIS 


اللآن اصبح بامكانك كتابة الكود بالشكل التالي: 


DUBLIN: CLASS MCLs 
{ 
publlc string name{get; set; } 


} 


VB.NET 


PFUCITITG CLGTS [MyCLaSS | 
Public Fropérlty hname() As SIFINng 
2L 
End Get 
Set (ByVal value As String) 
End Set 
End FrFOGEerFTY 
ENO CLES 


Lamda Expressions Iagll juڊlgû‎ . / 


كنا قد تحدثنا في موضوع سابق عن n0nymous Me¬ ٥s‏ التي تمکننا من ڪتابة ڪود 
الدالة فى مكان استدعاءها ما دمنا لن نستدعيها سوى مرة واحدة فقط » لنفترض مصفوفة نقوم 


فيها بالبحث عن الأعداد التي تقبل القسمة على 2: 
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static void TradilitilionalDelegateSyntax () 

{ 
LISL<INL> 118l = HEV LISELI, 
list.AddRange (new int[] { 20, 1, 4, 8, 9, 44 }); 
Predicate<int> callback = new Predicate<int> (IsEvenNumber) ; 
LIist<int> evenNumbers = l1l1st.F1ndAll (callback) ; 
Console.WriteLlLine ("Here are your even numbers:"); 
foreach (int evenNumber in evenNumbers) 
ا‎ 

CoONnSOLo. WEIL TIO ET, BETENNUNGEE), 

} 

ر 


static bool IsEvenNumber (int 1) 


{ 


EE LUE 


Private Shared Sub TraditionalDelegateSyntax () 
Dim list As New List (Of Integer) () 
list.AddRange (New Integer() {20, 1, 4, 8, 9, 44}) 
Dim callback As New Predicate (Of Integer) (AddressOf IsEvenNumber) 
Dim evenNumbers As List (Of Integer) = li1ist.FindAll (callback) 
Console.WriteLlLine ("Here are your even numbers:") 
For Each evenNumber As Integer In evenNumbers 
Console:WELtEEeE("{UO}" & ChE{(9) & "", evenNUüUmMmbDEE) 
Next 


Ed SUD 

Private Shared Functlon IsEvenNumber (ByVal 1 As Integer) As Boolean 
Return. (lL Mod 2) 

Ehd FuUnCTLILon 


مع استخدامنا ئل Anonymous Methods‏ من 2008 #€ اصبح باستطاعتنا كتابتها بالشكل التالي 


كما تعرف: 
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static void TradilitilionalDelegateSyntax () 

ا 
LISL<INL> 118l = HEV LISELI,‏ 
list.AddRange (new int[l] { 20, 1, 4, 8, 9, 44 });‏ 
Predicate<int> callback = new Predicate<int> (IsEvenNumber) ;‏ 
LIist<int> evenNumbers = l1l1st.F1ndAll (callback) ;‏ 
Console.WriteLlLine ("Here are your even numbers:");‏ 
foreach (int evenNumber in evenNumbers)‏ 


{ 


CORNED Le WLIO (TOF ET, BVE HNUMDEE)) 


} 
1 


Static bool ISsEvEeEnNumber (int 1) 


{ 


EE LUE 


Dim list As New List (Of Integer) () 
list.AddRange (New Integer() {20, 1l, Ey, 9Y, AA) 


Dim evenNumbers As List (Of Integer) = list.FindAll (AddressOf 
ConvertedAnonymousMethod1 ) 
Console.WriteLlLine ("Here are your even numbers:") 
For Each evenNumber As Integer In evenNumbers 
Console.Write ("{0}" & Chr(9) & "", evenNumber) 
Next 


الجديد في 2008 ۸€. هو استخدام ما یعرف باسم 0۸5اءءم۲م×٤‏ daاصmهاء‏ والتي يمكن كتابتها 


بالشكل التالي: 


ڪو د 


VB.NET 


Function (1 As Integer) (l1 Mod 2) = 0 
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حیث ان ال 1 ھی البار ميتر »› ونوعه THE‏ > يمکٽنڪ حتى الاستخناء عن تعردف نوع البارميتر لان 


3ا سوف تتعرف عليه تلقائياً » لذا سيكون الكود الكامل بالشكل التالى: 


DISL<INE> I1I5L = NOE LISI CINTS O, 
list.AddRange (new int[]] { 20, 1l, 4, 8, 9, 44 }); 
LIst<int> evenNumbers = list.Fi1indAll (1 => (1 % 
Console.WriteLlLine ("Here are your even numbers:"); 
foreach (int evenNumber in evenNumbers) 


( 


CoOREoOLELWEIEETIUOF ET", BTN UMNGEEY; 


Dim list As New List (Of Integer) () 
l1li1st.AddRange (New Integer() {20, 1, 9, 44È) 
Dim evenNumbers As List (Of Integer) LISLuELNOALL (FUUCCIODNL AF 
0) 
Console.WritelLine ("Here are your even numbers:") 
For Each evenNumber As Integer In evenNumbers 
CORNSOLE.WEILTEE(T{UF" & VGTaAb; evEeEANUMbEE ) 
Next 


:return value 
يمكننا ليس فقط اعادة قيمة واحدة أو ع1215 , ع1٤ Kڄ فقط » يمكنك الاطلاع على‎ 


المثال التالي: 


LIsSst<Iint> evenNumbers = l1ist.FindAll ((1) => 


{ 


CONSOLE. WEILeLInNneE ("valê GÎ 1 13 CGUFrEeNRLIYS OF", ID} 
Kööl 1iSEvéen 1 و( کت‎ 
FéElUEN. LSEveEN; 


; 


انا مك تمرير إأكر هن فار مار + و ذلك جت الدالة د 


مواصفات aل6"ها1:‏ 


- لا تملك aك۳0‏ ها خاصية الإسم . 
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- لا یمکن استخدام بعض مبادئ ال 00° مJiû .Overrides gî Overloads‏ 

- لا تستخدم قسم ۸5 لتحديد نوع القيمة المعادة وبدلا من ذلك يتم استنتاج المتغيرات تلقائيا . 
- داخل التعبير لا بد من وجود كود وليس تعريف لشيء آخر › ويمكن استدعاء دالة أيضا . 

- لا يتم استخدام ۸1۲١‏ بل يتم اعادة قيم الدالة مباشرة . 

- لا يوجد ك 21 أو ({) في .Lambda‏ 

- ا يمکن استخدام نام0 في 6/. 

- لا یمکن استخدام 6۸6۲٥‏ . 


Object Initializer Syntax ٽliilكJl‎ عlۉنl صغ‎ .6 


لن نطيل كثيرا في هذا الدرس » فقط سنتعرض لعدة امثلة سريعة عن فئة الموظفين التي 
تحتو ي خصائص الاسم و العمر والمرتب. 
المثال الأول ما قبل 2008 اع..: 


public class Employee 
| 
private string _name; 
private string _age; 
private SLtEIng _Salary; 
pBUDILILC SEFING Rame 
{ 
qet { return _name; } 
set { _name = value; } 
PUBLLG SEF ag 
( 
qet { return _aGge; } 
sek {aê = Yalu? | 
} 
BUDITIC SCT Salary 


{ 


CEL [ TELUIT “LOAF J 
set { _salary = value; } 


246 


الباب الثاني عشر 


البروحة المتقدوة فى ال أع١.‏ 


VB.NET 


Public Class Employee 

Private _name As String 

PrIivale _age A8 SLEInNng 

Private _salary As String 

Public Property name() As SlrFing 
GEE 


Return _name 
End Get 
Set (ByVal value As String) 
_ hame = value 
End Set 
End Property 
PUDLICG EFFODEFLY 406) A48 SLEING 
EL 
Return _age 
End Get 
Set (ByVal value As String) 
_age = value 
End Set 
ENC PFEODEELEY 
PUDLIG EFroperly Salary) A6 SLIEINGg 
Gêl 
Return _salary 
End Get 
Set (ByVal value As String) 
_ salary = value 
End Set 
End. PFEODEETY 
ClasS 


المتال التاني مع 2008 أ1€. وباستخدام propery‏ utomaticه‏ التي تعلمناها في درس سابق: 


VB.NET 


Public CLã83 Emplovyvêéêe 


Public Property name() As STEING 
Get: End Get 
Set (ByVal value As String) 
End Set 

Enid. PFODEEEY 

Public PFOpEeFtY a06) As StEINGg 
Gelt: End Get 
Set (ByVal value As String) 
End Set 

Enid PEOGEEEY 

PUDLLC PEOpErTY Salary () A8 SLIEING 
Get :End Get 
Set (ByVal value As String) 
End Set 

EGU. FEUDS 


Efi. CLASS 
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publl1c class Employee 


UDI SLE DOME. GEE GT 
BUBLITC SEEING a96 {1 Get; Set; | 
public string salary { Get; set; } 


المتال الثالث ومع استخدام ×aاSyn‏ izerاnitiaا Object‏ الجدید من2008 ۸0€.» نرید 
الوصول إلى الخصائص التي سبق لنا تعريفها بأحد الطرق السابقة › في السابق كنا نكتب ڪود 


بالشكل التالي: 


Employee e = new Employee () ; 
e.Name="Ahmed"; 

e.Age=15; 

e.salary=6000; 


VB.NET 


Dim e As Employee = New Employee () 
e.Name = "Ahmed" 

e. Age 

e.salary 6000 


الجحديد هنا 


Employee e = new Employee { Name = "Ahmed", Age = 15, salary = 6000 }; 


VB.NET 


Dim e As Employee = New Employee With {.Name="Ahmed" ,.Age=15,.Salary=1500} 


Anonymous Types AlJgaجgll‎ عlوiالا‎ ,9 


نواصل في هذا الدرس شرح الخصائص الجديدة في20058 0€1.» في هذا الدرس سوف نتعرف 


. Anonymous 1¥Pظ€S على‎ 
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لا تنسى اننا تعلمنا ان بامكاننا تعريف متغيرات مجهولة باستخدام الكلمة 731٣‏ فى السى شارب »اما 
الآن فلم تعد متخيرات مجهولة الهوية فقط بل بامكانك تعريف انواع مجهولة ایضا > لن اطيل 


كثيرا في المقدمة » انظر إلى الكود التالي : 


CF 


var e = new { Name = "Ahmed", Age = 20 }; 


Dim e As Employee = New Employee With {.Name="Ahmed" ,.Age=15,.Salary=1500} 


ع 


اللآن اصبح بامكانك قراءة ع٣a[.ع‏ و معA۸.€‏ بدون تعريف الفئة اصلاء 
فعليا ال es‌ypا Anonymous‏ یتم اسناده مباشرة إلى ا٤۴[‏ 06 ٥e۳.‏ اS۷s‏ لذا فهو يحتوي علی 


خصائصه الاساسية. 
ماذا استفید ٩‏ 


في [N0‏ يمكننا تعريف فئة ترتبط بناتج جملة الاستعلام » لنفترض اننا نود قراءة ناتج جملة 
استعلام ولا نعلم تحديدا شكل الناتج › يتم ذلك بالشكل التالى : 


CH ) 


var result = from emp in employee select new { emp.Name, emp.Salary }; 


VB.NET 


Dim namePriceQuery = From emp In employee Select emp.Name, emp.Salary 


الخصائص الnفiاحّة Key Properties‏ 
ص ا 

تختلف الخصائص المفتاحية عن العادية يعدة أمور 

- تستخدم الخصائص المفتاحية فقط لمقارنة المساواة بين نوعين مجهولين 


- لايمكن تخيير قيم الخصائص المفتاحية فهي دائما للقراءة فقط 
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- فقط الخصائص المفتاحية يتم تضمينها ضمن ال ع04 |1١‏ الذي يولده المترجم من أجل 


الأنواع المحهولة . 
لnسlو‏ اة Equality‏ 


تکون متخیرات الأنواع المجهوله متساويه عندما تكون متغيرات لنفس النوع المجهول ويقوم 


المعالج بمعاملة متغخيرين كمتغيرين من نفس النوع إذا توفرت فيهما الشروط التالية : 
- تم التصريح عنهما في نفس المدى 5٥00٥‏ . 


- تمتلڪ خصاتصهما نفس الاسم والنوع وتم التصريح عنها بنفس الترتيب وتكون مقارنة الآأسماء 


غير حساسة لحالة الآأحرف . 

- نفس الخصائص فيها محددة كخصائص أساسية . 

- يمتلك كل نوع خاصية أساسية واحدة على الأقل . 

والتصريح عن نوع مجهول لايمتلك آي خاصية مفتاحية يكون مساويا لنفسه فقط . 


Partial Methods .10 


باختصار شديد » لم تعد الآن مجبرا على وضع الفئة فى منطقة واحدة »› بل ان بامکانڪ 
كتابة الفئة فى اكثر من موضع › حيث يكفي ان تستخدم الكلمة 121 ٣اه‏ في اسم الفئة لتدل 


على ان هذه ليس فئة جديدة بل هو يتبع فئة معرفة فى مكان آخر » بالشكل التالى مثلا: 


Dar EIAL. CIGE CAE 


1 
} 
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VB.NET ا‎ 


Partial Class Car 
End Class 
«Partial Methods pul ولكن بعد ذلك ظهر مؤخرا ما يعرف‎ » .١.€ 2005 ڪان هذا مع عصر‎ 


حيث لم تعد مضطرا لكتابة الدالة فى مكان واحد ايضا › يتم ذلك بالشكل التالى : 


Partial Private Sub methodname (ByVal parm As String) 


EN SUD 


طبعا كما تلاحظ » افادنا هذا الموضوع كثيرا في تطوير خصائص الفنات الاساسية ودوالها بدون 


الحاجهة إلى تعريف نسخهةه جديدة منها. 


Garbage Collector .11‏ 
خلال دروسنتا السابقة كنا نعرف متغيرات وفتات .. الخ » ولكننا لم نسآل نفسنا كيف يتم 
تخزينها في الذاكرة ومتى يتم حذفها › هذه الاسئلة سوف نجيب عليها في هذا الدرس من خلال 

مفاھيم .GC Jıg Object lifetime J|‏ 
عند تعريفك لكائن من فئة ۴۸0M ٤٣1۸55‏ ۲٤Eل0B‏ فإنڪ بالواقع تصبح ممسكأً ب Refer nce‏ 
يشير إلى هذا الكائن الموجود في ال ۸€3٥‏ » هذا الل ۲۵۴۴۵۲۵۸٤۲۵‏ يوجد مضنا في )٤اك‏ خاص 


بالبرنامج. 


بعد اغلاق البرنامج او انتهاء الدالة يتم حذف ال ع٤ع٤١۲۴ع۴عء‏ من ال )عهاكء » سيكون التساؤل 
الطبيعى هو انه وفى هذه الحالة سوف تمتلئ الذاكرة بمتثات الكائنات التى لا تجد من يشير لها › 


يريحك ال ١0ع‏ ااه ٥عةطاهع‏ والذي يرمز له اختصارا 6€ من هذا التساؤل حيث يقوم بحذف 
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الفتات غير المستخدمة » او في الحقيقة فهو يقوم بحدذف جميع الفئثات التي لم يعد بامكانكڪ 


الوصول إليها من داخل البرنامج. 


فى ايام ال C++‏ كان من المفترض ان تقوم بحذف متغيراتك الغير مستخدمة اول بأول» اما الآن 


مع )0 فاصبحت جل المهام يتم تنفيذها دون ان تشعر. 


الحالة الأاكثر شيوعا هي ان تقوم بعمل =١۱111‏ » في الواقع هذا لا يعطي اشارة مباشرة لل ح6 
لحذف كائنك من الذاكرة › لكنه سيتم حذفه فى لحظة ما لا يمكنك التحكم بها › عندما تمتلى 


الذاأكرة فتلا 


G⁄° الفنةۂ‎ .1 .11 


تحتوي الفئة )6 على عدد من الداول التى تمكنك من التعامل المباشر معها › هذه صورة 


من کتاب 2008 r0 s2۲‏ الدوال واستخداماتها: 


Meaning In Life 


Allow you to specify a numerical value that represents the 
calling objects “urgency level” regarding the garbage collection 
process. Be aware that these method should alter pressure ir 
tandem and thus never remove more pressure than the total 
amount you have added. 


Forces the GC to perform a garbage collection. This method has 
been overloaded to specify a generation to collect, as well as the 
mode of collection (via the GCCollectionMode enumeration). 


Returns a numerical value representing how many times a given 
generation has been swept. 


Returns the generation to which an object currently belongs. 


Returns the estimated amount of memory (in bytes) currently 
allocated on the managed heap. The Boolean parameter specifies 
whether the call should wait for garbage collection to occur 
before returning. 

Returns the maximum of generations supported on the target 
system. Under Microsoft's .NET 3.5, there are three possible 
generations (O, 1, and 2). 

sets a flag indicating that the specified object should not have its 
Finalize( ) method called. 

Suspends the current thread until all finalizable objects have 
been finalized. This method is typically called directly after 
invoking GC. Collect (). 


الصورة 12. 1. دوال الفئة 6٤°‏ 


System.GU Member 


AddMemoryPressure ( ) 
RemoveMemoryPressure ( ) 


Collect( ) 


CollectionCount ( ) 


Getûeneration( ) 
GetTotalMemory ( ) 


MaxûGenêerat1lon 


SuppressFinalize( ) 


WaitForPendingFinalizers() 
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EINalLLIZEéE() 
له وتنفين يعض‎ 0۷6٣٣١١۵١ يمكنك هذا الحدث من اقتناص وقت حذف الكائن » يمكنك عمل‎ 
يتم ذلك بالشكل التالى:‎ 


class example 


~example () 


{ 


Console. Beep (); 


Class example 
Protected Overrides Sub Finalize () 
LEY 
Console. Beep () 
Finally 
MyBase.Finalize () 
ERG IEY 
ENC Sub 
EGA UI 


Operator Overloading .L2 


في الانواع الرئيسية لنا » نستخدم المعاملات المختلفة لتنفين عمليات على الفئات المشتقة 
منها » فمثلاً المتغير من نوع 1١696١۲‏ يفهم المعامل + على انه جمع »- على انه طرح ... الخ. 


ايضا المتغيرات من نوع 51۲119 تفهم المتغير + مثلا على انه لدمج نصين » وهكذا. 
الآن لو قمنا بعمل 1۲٥€‏ ا٤‏ ۲1ا5 من نوع ا١01‏ بالشكل التالي مثلا: 


DUDLIG FELUCTS FOIL 
| 
private int x, Yj; 
OUBLLE POINT (IRE XPOS, IRE VPOS) 


= xXPOS;} 
=  VPOS} 
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VB.NET 


PUCIIG' SETUCTUTEe POILNE 
Private x As Integer, ¥ As Integer 
Public Sub New (ByVal xPos As Integer, ByVal yPos As Integer) 


xPoOS 
yy = VPS 
ENQA Sub 
End StEUCTUrEE 


الآن جرب تعريف عدة نقاط » واستخدام المعامل 1 او - لجمع وطرح النقاط › ما تتوقعه ان 
تشاهد الناتج . 


عبارة عن طرح ال × في النقطة الثانية من الأولى وكذا ال ¥ › أو جمعهما معا › إلا انڪ في 
الواقع لن تحصل سوى على رسالة خطاً تفيدك بآن 5۲۷٣1۲٥‏ المسمى ا١01‏ ل يدعم معاملات 
الجمع والطرح . 

اللآن سنقوم باضافة معاملات جمع وطرح إلى ال 10۲€أ٤‏ 5)۲۷ السابق: 


BUDBLILE OTFCC FOL 
ا‎ 
private inl &, Vv; 
BUDLILG POLNE NRE SPOS, ANE. VFO) 
ا‎ 
Xx = xPos; 
yV =. VEO) 
ا‎ 


EUDLILC. SCOLCILT POINTE ODETILCOE F(POINE Bly POINTE Bd 
1 FELT ROV FOLNEGlR FF Blk; Bl VE BLVD 3 
PUBLIC OLCOTT LCE POINTE OQCIEALOTE = (POINE Dlg FOIL O2) 
[ EELUEN Nee POINLPLE =3 OSE, Dl YT TD J 
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PUOLIG' SLCTUCTUTEGe FOILNE 
Private x As Integer, ¥ As Integer 
Public Sub New (ByVal xPos As Integer, ByVal yPos As Integer) 
Xx = xXPOS 
y = VPS 
ENO Sub 


PUBLIC Shared. OoGeralor T{(BVVaL pl A8 Point, BYVaL p2 A8 POoOInNnL) &8 FONT 
EDU NEN POINL(BLS BF Bc, CIV FEF BA.) 
End Operator 


Public ‘Sharêd Ooeraltor -=(BYVal pl As FoOint, BvVal pZ As POINL) As POINnt 
RELUTD Ne POINE{DL.K = DZ.K, Bl.Y = B2. V) 
End Operator 
ENQd SLCTEUCTUTe 


الآن يمكتنك كتابة كود بالشكل التالى: 
ڪو د ) CH‏ 


VB.NET 2 
DIM O ASE POINL SES GEE OE 


ستحصل على النتيجة الصحيحة لعملية جمع ال كأ”اه". 
أيضاً يمكنك كتابة كود كالتالي مباشرة: 


VB.NET 


آخر ما سنتعرف عليه في هذا الجزء من الدرس » انك لن تكون قادرا سوى على تعريف 1٥‏ 2ا5 


unc‏ من اجل عمل 0۷8۲۱0۵01۱8 لآي معامل. 


ليست معاملات الجمع والطرح فقط من يمکن عمل ع١ 0۷6۲۱٥۵۵1‏ بل يمكنڪ عمل ذلڪ لاي نوع 
من المعاملات › فمثلاً ++ و -- في السي شارب فقط: 
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HUDLILC SLCALCIS POLNT-OREFATOE FEPOILRNE 6L) 
[ 


FELUIEN THe POINLC(plL.S el, Dl yY FE 1F; 


PUDLIC STATIC POINT OPDOTILOF ==(PolnT BL) 


1 
TEL UTT TUE FOIE LSE = ly Bly = IF 


} 


نفس الأمر بالنسبة لدوال المساواة وعمل == أو != حقيقية متل ما تعلمنا سابقا مع عمل 


overriding‏ للدالة »J)ua1 sS‏ سنعتمد هنا على هذه الدالة بالشكل التالى: 


pBuUBDLLC Override bBOOL EGüuals (6D eC 0) 


{ 
CLUE O.TOSEIEING(), 5a CRIS. TOSTEIRNG CF 


} 


UBL SLALIC DoGOl OGCTaTOE ZZ POINTE Bl, FOIE B2) 
{ 
FELUET OLéEOUALS BA); 


} 


DBUDLLT SCAT 1C BOGL OGETaLOT 1 =(POINE pL, PONE B2) 
{ 
FLUTE TBLLEOUALS O2; 


} 


VB.NET 


Public Overloads Overrides Function Equals (ByVal o As Object) As Boolean 
RECUEN OcTOSEEING) & Me. TOSLCEFING Û 

ERC FURCELon 

Public Shared Operator =(ByVal pl As Point, ByVal 6Z As Point) As Boolean 
RELULET GPL.EGuUalSs (p2) 

End Operator 

Public Shared Operator <>(ByVal pl As Point, ByVal p2 As Point) As Boolean 
ReELUrED NoOGol öDl.EGUaLS (p2) 

End Operator 


وهکذا تحد ان بامکانڪ overloadi¬1£ Jane‏ لى من هھذە true, fal5ê‏ ,-- ,++ ,7 ,!,- + 
4 


۴ e LT ls p22 : المعاملات‎ 
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ع mm im‏ 
13. lلggړرGI Pointers‏ 
إذا كنت مبرمج K++‏ » فأنت بالتأكيد تدرك معنى 001٣6٣‏ ما لو لم تکن ڪذلڪ٬‏ آما لو 
لم تكن كذلك فعليك ان تعرف انه بالاضافة إلى reference type Jıg value tyضe J|‏ ھناك 


ايضا ال ۷€ ١0٣0م‏ والتي تختص بالاشارة إلى اماكن معينة في الذاكرة. 


بداية آول ما ستعرفه انك لن تتعامل معها فى الكود الطبيعى » بل ستضطر لاستخدام ءa۴كہں‏ 
٥6ع‏ لعمل ذلك حيث أن السى شارب لن تسمح لك افتراضيا بالتعامل مع ال ٣6٣5‏ أ00» لذا قم 
او لا بالسماح لنفسك باستخدامها بالشكل التالى: 


EEE‏ ڪڪ چ س مو ج رد سپ 


| Application 
lL |  Configuratior | etme [Debug] ¥ Platform: | Aetrwe [Any PUN] ¥ 


| Build 

و د Genera]‏ | 

Bunld Events 0 ا‎ 

Hebun Londitional compilation symbols: 
Define DEBLIG constant 

Resources 3 


Define TEALE constant 


settings 
Flatfarrm target: Any LPL ا‎ 


Ref Path: 
EEE APRS Allow unsafe code 


signing [| Optimize code 


چ 
Cesar amad saa rm im mr‏ 


IE 11 | ۴ 


ڪڪ ڪڪ ڪڪ ڪڪ 
الصورة 12. 2. تمكين استخدام خاصية ال ٥00€‏ ٥53١ل‏ في المشروع. 
والآن من خلال الكود الخاص بك يمكنك كتابة كود يتعامل مع ال 00١€ ۲١‏ بالشكل التالي 


ے 


مغلا : 
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CLASS PFroGEanm 


STaLICG TOIL Malni{( SEEING Ll aFE08) 


ا 


UriSAaA ÊS 


{ 
// Work with pointer types here! 


} 


// Can't work with pointers here! 


اللآن سنتعرف على الأدوات الأساسية التي ستعيننا على التعامل مع ال 00١6۲١‏ قبل ان نغوص في 
الآأمثلة: 

تستخدم لتعریف 001۸1٤٥۲‏ 

لمعرفة عنوان المتغير في الذاكرة 

تستخدم للوصول إلى حقل ما داخل الفئة التي يشير إليها ال 


pointer 


التحرك ضمن المؤشرات والمقارنةه وخلافه. 


الجدول 12. 2. معاملات التعامل مع المؤشرات في السي شارب. 
مع استمرارنا في هذا الدرس سوف تكتشف ان التعامل مع ال ٥00€‏ 538١لا‏ لن يكون بنفس سهولة 


العمل في 00€ 53€ من خلال سي شارب العادية . 
و لکن لماذا استخدم ş unsafe COd€ J|‏ 


١‏ آغراض تعليمية. 
۰ استخدامك لبعض ال ااك او ال C0M Components‏ التي تفل اصاا من خلال 
.pointers‏ 
١#‏ محاولة تحسين اداء وسرعة مهمة معينة من خلال الوصول المباشر للذاكرة . 
في مشروع التخرج الخاص بنا وأثناء قراءة كأم×أم صورة ما لعمل بعض عمليات |٣28٤‏ 


Processing‏ كان بامكاننا استخدام دوال 6e۶ 1×٥1‏ و 1عP1xاءS‏ الخاصة بالصور للقراءة 
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والكتابة » ولكنها كانت لتكون عملية طويلة جدا للمرور على الكاع€×أم بهذه الطريقة » الحل 
البديل كان باستخدام ع0dء unsafe‏ والتعامل مع ال ك€۲ا”أمم مباشرة للمرور على ال كأع×ام 
الخاصة بالصورة » جرب مثلا ڪو د لطر ح صورتين بالطريقهةه GetP1xel‏ و SetPixel‏ « 


وبعد هذه الدرس جربها مرة أخرى باستخدام 006٣۲١‏ وأخبرني بالفارق 
الآن ستعود مرة آخرى لنشرح من البداية... 


يمكنك ان تعريف 01١6١‏ بالشكل التالى: 


CF 


public Node* Left; 


ليس هذا فقط » بل بامكانك تعريضف ٤1۲٥۴‏ ل۲Uك‏ او class‏ من النوع 1€ 1152 بالشكل التالي: 


public unsafe STFUCGE Node 
public int Value; 
public Node* Left; 
DUDILT NodE* EIGN; 


أو دالة ايضا: 


unsafe static void SquarelntPointer (int* mylIntPointer) 
{ 

//7/ -Souare the Il UE TOF E Cest, 

*mMYIRNTCPOLNLEE *= MVINLPOLNLeE; 


ولما كنا قد استخدمنا لتعريف المتخير في البارميتر › إذن سترسل البارميتر باستخدام & 
بالشكل التالي: 


CF 


SquarelntPointer (&mylInt2); 


n=>Valüêe=5j; 
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ş V6.6 وماذا عن‎ 


لو كنت مبرمج ۷/8.1٥‏ فلن يمكنك الاستفادة من المؤشرات مباشرة » ولكن توفر لك الفثة 
System. Runtime. [nteropServices sll Jlجnل aعيlîll Marshal‏ محاڪكاة 
قريبة من عالم المؤشرات › لنفترض الكود التالي #) : 

Bitmap bitmap = new Bitmap (this.BackgroundImage) ; 


UfiSa fe 


{ 


System.Drawing. Imaging.B1itmapData bmpData = bitmap.LockBits (new 
Rectangle (Û, Û; bitmap Width, bitmap. Height), 
ImageLockMode.ReadWrite, 


PIRE IPFOTMOTLLEOEMSLCSA2DCBAEGO 
byte * pixel = (byte*) (vold*) bmpData.ScanûO; 
Eh lal SHEE 15S GOL VATENE CO 
//byte* pixel = (byte*) bmpData.ScanO0.ToPointer () ; 
pixel [0] le O 
Biel. ك‎ Ws, 
pixel [0] 


سيتم تطبيقها في ۷/65 بالشكل التالي : 


VB.NET 


bitmap As New Bitmap (Me.BackgroundImage) 
width As Integer = bitmap.Width 
height As Integer = bitmap.Height 
bpmpData As System.Drawing. Imaging.BitmapData = _ 
bitmap.LockBits (New Rectangle (0, 0, width, height) 


, System.Drawing. Imaging. ImageLockMode. ReadWrite, 
PlxelFormat.Format 3Z2bppArgb) 
System.Runtime. InteropServices.Marshal.WriteByte (bmpData.Scan0O, 
GmMpDalLa. STLEIQdE;,. 255) 
System.Runtime. InteropServices.Marshal.WriteByte (bmpData.ScanO0, 
bpmpData.Stride + 4, 0) 
SILmMap: UnLOCKBLTES (GMpDAEA) 


. مع الشكر للأخ وليد صاحب المتثال‎ ٣ 
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Query Expressions .14 


تعتبر ال ۲۵5510۸5م×۴ ۲۷علاQ‏ هى الخطوة الأولى والأساسية فى عالم ||N0Q‏ » سنتعرف عليها هنا 
باختصار شديد كميزة جديدة من مميزات 2008 0€1. فيما سنؤجل باقى التفاصيل للفصول 
القادمة حينما نبد التعامل الفعلي مع قواعد البيانات. 


لنرى هذا المثال مثلا: 


from d in developers 
where d.Languadge =="C#" 
select d.Name; 


VB.NET 


From d In developers() _ 
Where (d.Language = "C#") _ 
Select d.Name 


هذا بالضبط هو محتوى جملة الاستعلام التي تعودت على كتابتها سابقاً بالشكل التالى في ال ا5۵: 


SQL | ا‎ 


Select name from developers where language = "CF#" 


إذن لماذا هذا الشكل الحجديد ©$ 


في السابق كنا نقوم بارسال جملة الاستعلام ليتم تنفيذها في قاعدة البيانات وتعود بناتج على 
شكل (12۸٥208۲‏ أو مهما يكن » آما الآن اصبحت جمل الاستعلام جزء من محتويات اللغة التي 
تقوم ببرمجتها. 

لتعمل على N0‏ || فلا بد من توريد مجال الآأسماء هذا: 


USING SVSLCEM;LILNG; 
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VB.NET ا‎ 


Imgoorlts System. Ling 


تعتمد ال ۵| على ان قاعدة البيانات هي عبارة عن ۸۲۲۵۷ أو أي جزء منها › لذا سنجرب بعض 


العمليات على ال ۸۲۲۵۷ » لنفترض الشكل التالي مثلا: 


CH 


string[]] userNames = {"Ahmed", "Al1", "Mohammed", "Ahmed", "Ramy", "Khaled"}; 


VB.NET 


Dim userNames As String() = {"Ahmed", "Ali", "Mohammed", "Ahmed", "Ramy", 
"Khaled" } 


* لن اذكرك کثيرا بانني هنا ا اهتم ب N@‏ |1 قدر ما اهتم بال Query E×م٣e55i0 ٩۸5‏ » الفارق 


هو ان الأولى خاصة بالتعامل مع قواعد البيانات بمختلف انواعها اما الثانية فهى تعلمك كيفية 


الكتابة فقط دون التطرق لخصائص قواعد البيانات 


هذه المصفوفة قد تكون قاعدة بيانات » قد تكون ملف ا۷× » قد تكون أي شىء آخر »الآن ستحاول 


بناء جملة استعلام لقراءة الاسماء التي تساو ي "۸٣۸٣٥"‏ 


CF 


lEnumerable<string> subset = from users in userNames 
where users == "Ahmed" orderby users select users; 


VB.NET 


Dim SUbSsSt AS IENUmMEéErTaAbDLESE = From USFS IN UserNamês Where Users = 
"Ahmed"OrderBy users Select users 


CH 


foreach (string s in subset) 
CONSOLE. WELTELIRNEG (FILO? TOF; SF; 


VB.NET 


For Each s As String In subset 
Console.WriteLlLine ("Item: {0}", 5s) 
Next 
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يمكنك بالطبع استخدام اي دالة من دوال #) » لذا فالجملة التالية صحيحة لعرض الاسماء اطول 


IEnumerable<string> subset = from users in userNames 
where users.Length > 3 
orderby users 
select users; 


VB.NET کک‎ 


Dim subset As IEnumerable = From users In userNames Where (users.Length > 3) 
OrderBy users Select users 


ايضا قد لا تكون قادرا على معرفة نوع البيانات الظاهر » خصوصا لو كنت تستعلم عن اكڪثر من 


حقل حيث ان الناتج ا بد ان يكون فئة » هنا تظهر لنا فائدة ال ٣ا72‏ أو ال 01۳ بدون€صY¥| Data‏ 


التي شرحناها سابقا » ايضا ربما لا تعود جملة الاستعلام بنتيجة لذا سنسترجع هنا فائدة ال 


65 eاطھااNu‏ والتی شر حناها ایضا فی درس سابق. 


طريقة أخرى لكتابة هذه الجمل باستخدام ۳003ها» وسنتعرف عليها فى مرحلة قادمة. 


Preprocessor Directives .L15 


ڪٿ ۱ خلال د د : ج لل امج او للمشاريع الحاهزة أو حتی للادوات في ڊر نا محڪ ما تعتر على 
الشكل التالى مثلا: 


Fregian "Constructaors™ 
# a Iot of code goes here. 
#endreqion 


وكنت على حد علمك تعرف انها طريقة لوضع محموعة من الأكواد ضمن حدود معينة بحيث 


يتم فتحها واغلاقها بسهولة لضمان عدم التشویش لك آتناء كتابتك الكود › إلا ان ما ستعرفه في 
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هذا الدرس أن هذه ال ك١0أع۸€‏ وخلافها هى مجموعة من Preprocessor Directives J|‏ الت 


سارف علھا دضلا کے ھذا اندر 


#region, #endregion .1 .15 


نخدم عاد لتس مظهر الكرد فى ملت الفرة اتخاضن یک کھا ذکرتا سابقا یمک کتا ا 
بالشكل التالي مثلا: 


#regqion "Class Employee" 


public class Employee 
[ 
private string _name; 
private string _age; 
pPEILVALG SLCEINT Salary; 
pBUbDILIILC SEEING name 
{ 
get { return _name; } 
set { _name = value; } 
} 
public sStrEINnG age 
{ 
qet { return _aGge; } 
Sêl { adê = Galüuê; |} 
} 
BUbDLLCG’ SEEING Hamê 
{ 
qet { return _salary; } 
set { _salary = value; } 


} 


#endregion 
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الباب الثاني عشر 


البروجة المتقدمة فى ال أ٥.١.‏ 


VB.NET 


#Region "Class Employee" 


Publlic Class Employee 


Private _name As String 
Private _age As String 
Privates _ Salary AS SLEING 


Public Property name () As String 
Get 
Return _name 
End Get 
Set (ByVal value As String) 
_ hame = value 
ENG SEL 
End Property 


PUDLICG FroDEerlLy a4906) &S ELrIING 
oL 
Return _age 
End Get 
Set (ByVal value As String) 
_age = value 
End Set 
End PEODPErFETY 


Public Property name () As String 
GL 
Return _Salafry 
End Get 
Set (ByVal value As String) 
_ salary = value 
End Set 
End Property 


End Class 


#End Region 
الآن يمكنك فتحها واغلاقها من الطرف › بحيث يكون كودك منظما بالشكل التالي متلا:‎ 
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الباب الثاني عشر 


Projêct 


البرودة المتقدوة فى ال أع.٠.‏ 


| FWindowsFormnsApplicationS,Forrnd 


3 


کک کل کے اا 


fregion "Collececions" 
"# #ÖömMÊ# ةöةdlê‎ ğöğã lêfê 


feniregion 


TE 5 ص‎ e ج‎ 
. 


#reqion "Class Employee” 
piiblic class Employee 
1 


pimyate string _name; 
private string _aqE: 
private string _salary, 


public serî nq narme 


qet { return _narme; } 
= ; sef [ namê = valê j 


1 


public strıng age 
qet { rebum _agE; } 
set [| _aqe = value; } 
1 


publre stririg riarrie 


qet { return _salary: } 
sek [| _salary = value; } 


#region #endregi0n J| الصورة 12. 3. استعمال خاصية‎ 


#endif .2 .15 


#if, #elif, #else, 


يطلق عليها اسم a†|00اiمComp Code‏ اConditiona‏ » وتستخدم لتنفين اجزاء معينة من الكود فى 


الات مةه فقط. . خملا لخعل جرع من الكود لا تحمل فقط [ل وقت ال 0ا06 ولیس کے وقت 


ال ۸٥٠358‏ نكتب الكود بالشكل التالي 
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#LfÊ DEBUG 
CoRnSOLe.WEILeLinêe (TApD. dIFECLOEY: {UOF"; Environment. CUETEenlDLrecEOoOEV); 


( 
Console.WriteLlLine ("Box: {0}", Environment. MachineName) ; 
CONSOLE WEILTELIRNEA TOS: {UF ", EOVIFONMENLE. OSVEFSLOR, 
CONSOLE. WELEELINESE (T.NET VoTSTIoONT TON, ENV IFONMENE VES IORN, 


EROÛTE 


VB.NET 


#If DEBUG Then 
Console.WritelLine ("App directory: {0}", Environment.CurrentDirectory) 


( 
Console.WriteLlLine ("Box: {0}", Environment. MachineName) 
CONSOLE. WELLELIRNE (TOS: Op, EnNVIrFONmMENL. OSVEFEFSLOI) 
ConNSOLE. WELTELINE (T.NET VErSIlon;: {U}, Environment .VéSrSs1on) 


EMÛ TÊ 


بنفس الطريقة يمكن استخدام 15€ و 11۴ع. 
#define, #undef .3 .15‏ 


تستخدم لتعریف ا0ط ٣ء‏ معین » مثلاً یمکنکڪ تعریف 01ط "5۷ لل ع ط٥0‏ » او یمکنڪ تعريف 
اماصلء خاص بك بأي اسم ليتم استخدامه لاحقا » المثال التالى مثلا لتعريف ا5/"60 يعني ان 
هذا الکود یتم عمل 08618 له فقط على N۸0۸0‏ . 


“Preprocessor Directives” [Carcsl Progra ا‎ 
| Application ۱ 
` Configuration: Platform: | Active {Any CPU) 
| Build" 
Build Events ا‎ 3 
ih Condilional compilation symbols MONO_BULD 
[¥] Define DEBUG constant 
Resources 


Defîne TRACE caonstanî 


Settings 
Platforrn target Any CPI 2 


mH : a i‏ : 1 س 


الصورة 12. 4. خصائص المشرو ع» اضافة رموز ترجمه إلى المشروع. 


احق بمکنک کتانة کود انگل الال 
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Fdéfine DEBUG 
FdefIiné MONO, BUILD 


USLNT System; 


namespace PreprocessorDirectives 
{ 
Class Program 
{ 
HCACIE FGoid UMRE INMGl] alos) 


{ 


#if MONO_BUILD 

CONSOLE. WELTELIRNE (COMO LLTRG UNCEE Mono; 
#else 

Console.WriteLlLine ("Comp1iling under Microsoft .NET"); 
#endi f 


VB.NET 


#Define DEBUG 
#Define MONO_BUILD 
IMOOTLS SYST 
Namespace PreprocessorDirectives 
CIQAS PIOGLAM 
Private Shared Sub Main (ByVal args As String () ) 
#If MONO_BUILD Then 
Console.WriteLlLine ("Compiling under Mono! ") 
FElse 
CONSOLE .WELEELINê (TCoMOLILING Uuider Microsofrl NET") 
Dim INDEXERS As n, OPERATORS As n, [AND| As n 
POINTERS Û 
#End If 
ENC. SUBD 
ENG. CIES 
End Namespace 
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XML Commenting . L6 


في الواقع فإن عمل كأ١/۳"8€ C0۳١‏ للأكواد يعد آمرا في غاية الأهمية خصوصا في حالة 
المشاريع الكبيرة » حيث تستطيع مراقبه كودك كما يستطيع اي شخص آخر بقليل من الجهد 


معرفة ڪودك والاڪمال عليه حتى ولو بعد توقفڪ عن العمل في فسن الكود يفترة طونلة جذا. 


وكما عرفنا في بدايات هذه الدروس » يتم عمل ال 00١۳۴8١‏ بالشكل التالي 


Cf 


// here we will do something, set x=startvalue 
x = FirstClass.Default (); 


VB.NET 


' here we will do something, set x=startvalue 
xX = FiFSTCLASS.DEfaAULÊ () 


الآن سنتعرف على طريقة جديدة » تمكننا من كتابة ال K0 "۳٥€‏ بأسلوب ا۷N×‏ يما يوفر لتنا 


عدة مزايا سنتعرف عليها خلال الدرس. 


ملاحظة 

من اوائل اللغات التي طبقت هذه الطريقة كانت ۷2هل ون خلال ٤٥٤۷200هز.‏ 

يتم ذلك بداية من خلال وضع /// » بعد وضع هذه العلامة تستطيع وضع أي علامات خاصة يبڪ 
للكود والذي سيتم التعامل مع لاحقاً على أن ۷× ما دام يطبق مبادئ ا۷[ هناك مجموعة من 
العناصر القياسية التي يفضل استخدامها لتوحيد المفاهيم. 


لتحديد ان اللاحق ل يد آن يعرض بخط مختلف 
EOE.‏ لتحديد ان تعدد الاسطر سيتم التعامل معه ڪكو د 


<example>‏ تحديد متال لشرح الكود المكتوب 


1017ا ×> الملف الذي يحتوي على الاستتناءات والأخطاء التى يمكن ان تنتج عن هذا 
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لشرح بارميتر معين 


خیارات الل |اأں‌B‏ 


رايط آخر لجزء آخر من Docume nta†|0٥۸۱ J۱١‏ 


و صف اجمالي للجزء المشروح 


الجدول 12. 3. وسوم تعليقات XML Documentatiټ‹¬ J|‏ 


والآن» ما هي الفائدة التي ستجنيها إذا استخدمت هذه الطريقة بدلا من الطريقة التقليدية ٩٩5‏ 


أولا > جرب مثلا كتابة ما يلي لفنة الموظفين مثلا: 


XK SUMMA YS 
Employee Class of the company 
<J SUNMAEYZ> 
partial class Employee 
{ 
/// <summary> 


i 


/// </summary> 

/// <param name="Firstname">first name of the employee</param> 
/// <param name="lastname">last name of the employee</param> 
/// <param name="age">age of the employee</param> 

publl1c Employee (string Firstname, string Lastname, int age) 

{ 

} 
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VB.NET 


FT SUNET 
"TT Emolovee Class Of thE. comoany 
''' </summary> 
Partial Class Employee 
TF CSOMMOEY 


FT SUMMA 


''' <param name="Firstname">first name of the employee</param> 
''' <param name="Lastname">last name of the employee</param> 
''' <param name="age">age of the employee</param> 


PUDLICG SUS New(BYVaAL Firsthnamê. AS SLIFING, ByVal Lasthamée-. AS SLFEING; BYVAL 
age As Integer) 

ENC. SUD 
ENO Clas 


و جرب الآن عمل الكود > ا حظ الصورة التالية: 


Slas3s PFIroğTaB 
ً 
atatie valid Hainjstring[] arga} 
ً 
Employes gape Employee 1 
٣ (Empleyez Employee {string Firstname, string Lastname, int age] 


FIFA 


الصورة 12. 5. استعمال تعليقات ال ا1٧ا×.‏ 
هل لاحظت الفارق » اصبح الكود يظهر واضحا لباقي مبرمجي فر یقڪ » اليس كذلڪ © 
نقطة خر J‏ ¬ټDocumentati0‏ 


امضنا ومن ضمن خيارات ال اا8 » يمكکنڪ اخراج ١0|اnka cume‏ ڪاملة لمشروعڪ 
اعتمادا على هذه الوسوم › لذا من خصائص المشروع قم باختيار هاألا8 وقم باختيار انتاج ملف 


)۸1 بالشكل التالي: 
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Application | 2 : 
| Cenfigurstion: | Active (Debug) >| Platform: | Aetive (Any CPU) - 
| Build" OE ESSE 

Buildl Events e 2 

E 
Deb Londitional compilatsen symbols 

[#Î Define DEBUG constant 
Resource ل‎ 

[#| Gefînê TRAĞEÊ canstanî 
Services سسس‎ 

Platform target: my CPI 2 | 

3 FÎ Allaw unsafe cede 
Eeference Faths IF Optimize code 
| 

Signing Errars arid warnings َ 
security Warming levek 4 ٍ 
Publish | SUPPRESS wari 
Cade Analysis | Treat warming a5 ENTOTS 

î None 

Specie wang 
اھ‎ 
utp 
Dutput pathe bin Debug ee أ‎ 
l4 XML documentation file: bini Debug" ConsoleApplicatiord XML 


الصورة 12. 6. ضبط خيارات المشرو ع لبناء ملف Documentati0¬ J|‏ 
جرب الوصول لهذا الملف الذي قمت باختياره» ستجد شينا مثل هذا: 


- Har nama a" Tin de F orm Appa tian Î 1.Praperiias Resear eag” = 
aia 2 SFE Ry FE Faire elas, ler leaking üip legalîged siFRiAnğ3, IE, 2 miummiaryg 
dî ERKE 5 
- amber rame" Pi: Windows Forms Applicatlon1l 1 Propertles  Retoarced Resor cEM anager" x 
cmummary Returns fhe cached ResourceManager Instance umd by thi class. Îsmary 
î mamibeeir xw 
= A EMbar rama a Wms Ferme Appllicathen 1l 1 PFraepartles Kazoarcezs Cultura” x» 
amma marries iha current threads Curren TCultare proapoarty lor all rasauroe obupa ising thls gira nmqgly FON regeurce Class. 2 aia x 
E THIET 
- HEmbEr ama" TW dea SF om SRP ECS Tioa Î 1. Empl" > 
ammmarY =>EmplêyEe Clas ûf hê oom a py aR 
ا‎ 
amember nama = M:WindomsFormszA pplication 11. Employee. Ector{Systemu.String System.String System. Ina? x 
FUMIMATY f 
par ama mama Firstname Hts name ol Khe amuployea params 
apa am mame "Lastname" lazî nama ofl ihe employee zi param= 
Fa Mam "AE" aE of rea ama ployoa = param > 
ا‎ 
- mbar aamê 2" Fila wa Farris Ap pliEalonil 1 . FoR] „Sê po RES" > 
sxmımmary Required desiqjner variable, <i îumemary 
ty mamkeer 
ambar nama 2M: Windows FormzA pplication 1 1.Formi 1 .lspose( System Boolean)" x 
teummary Cheam up amy resources belng used. îsımmary x 
Ta am mamê "is posimqî xima ÛÎ managed reasourcas should la disposal; otherwise, alsa. < params 
df THATS 
- mbar namaz" Minas Forms p Mica lio 1 1, Fara i, IRF ETRA pO aR" = 
aimREFY >ReqiilFad raal hêell fF Daziğhêr Sip pêrl = dû aol Fûdikg Ihê êa lêRlS ûl hi malhêd êilh Ira S2ê dito, ia 
tî Ekê 
- Amber rame" M:WindowsFor masi ppiicatlon 1 L.Program. Hal 
cuımmary +The main entry point for thee appllcaton. ty summary 3 
j TEHTEDAET 
ty TITHE 
IE 


الصورة 12. 7. ملف ال ^İ0°°خDocumenta‏ الناتج. 
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الباب الثانى عشر البروحة المتقدوة فى ال أع.١.‏ 


نقطة ثالثة "٥۸1310١‏ uاc٤00‏ مرة آخرى 
للاسف ل¥ك يوفر 2008 Studio‏ أuaءأ۷‏ اداة افتراضية لتحويل ال ا۷¥× السابق لصيخة 
مفهومة » لكن يمكن استخدام أداة مثل N00٤٥‏ لتحويل الملف السابق إلى مثل هذه الصورة: 


E) FE + O FB @ & FÊ 
Hide locale Back E ea 


roiard 


An MÛze dacumantad library 
Employee Members 


3 Collapse All “| Members Options: Show All 


ET 


| 3 8 : This Ela3s represents an Employes. 
چ‎ E] Employee Construct) | Î The following tables list the mambers expased by Employee. | 
ت‎ Employee Properties E 
2 i Dict E aE ا‎ = Public Constructors 
3 GirveBornus Method RIA FE Description 
î 2ı Ermplğvêê Overloaded. Initializes ã nêw instance of the 
Employee class. 


Top 


=I Public Properties 


Name Description 
ق ت‎ Gets and Sets the Age. 1 


الصورة 12. 8. برنامج ال N00٤٥‏ لتحويل ملفات ال 0١10ا3اeمصocum(‏ إلى ملفات مساعدة 
.(Help)‏ 


ڪل هذا فقط من ال أ۸ Comme‏ 
يمكنك الوصل إلى نسخة على ال 0۲8€ 5010۲٥6‏ من الرابط التالي : 


رابط گي 


http://ndoc.sourceforge.net/ 
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.net Assemblies .1 7 


موعدنا هذه الفترة مع ال s€iاbصmعass‏ اهم. . لن تطيل فيها كثيرا ولكننا سنعرف النقاط الاساسية 


فيها فيما يمكنك الاطلاع على المزيد عنها من خلاJ MSDN‏ 
namespace Jl .1 .17‏ 


في نفس ال ۸37853٤08‏ يمكن لجميع المكونات تحته ان ترى بعضها البعض » لذا دوما 


وفى مشاريعك الجديدة اجعل ع٥٤3٥€5‏ ۸4 موحد لجميع مكونات برنامجڪ 


namespace example 


{ 


CLAS, SOMECLASS 


{ 


VOI1d method () 


Namespace example 
Class someclass 
Private Sub method () 


ENC Ub 
End Class 
End Namespace 


آما لو كان لدينا فئة c1255€٣3 1٣‏ فى ۸N3۳€5٥3٤€‏ باسم آخر» فلن يمكنك كتابة الكود التالى 
ضمن الدالة السابقaة meth0Od‏ 


Told method) 


ClassCar x = new classCar(); 


} 
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VB.NET 


Private Sub method () 


Dim x As New classCar () 
End Sub 


لكن يمكننا عمل 0۲م |٣"‏ لل عأم"۳هx×ع‏ لتتمكن من تعريف الفئة بالشكل التالى 


using example; 
namespace example 
{ 
class someclass 
{ 
vVOlQd method () 
} 


cClassCar x=new cCclassCar (); 


VB.NET 


Imports example 
Namespace example 
Class someclass 
PIIVaALeS SUG mélhNoOd() 


ENO Sub 
Private x As New classCar () 
End Class 
End Namespace 


Default Namespace JI رڍغi‎ .2 .1 


Application 


Lonfigiratiore N/A ا۰‎ PlatforirTte N/A أ‎ 


Assembly name: Default namespace! م‎ 


Namespaces [niertechTraining | 


Target Framework: Output type: = 


الصورة 12. 9. تخيير مجال الأسماء الافتراضي من خصائص المشروع. 


IB 


الباب التانى عشر البروحة المتقدوة فى ال أع.٠.‏ 


Format of a .NET jJلبمسالا شكل ملف‎ .3 .17 
Assembly 


إذا قمت بفتح ملف الاسمبلى ب ٥×ع.١iم‏ "۷ا0 متلا يمكنك ان تلاحظ أن مكلف الاسمبلي 


يتكون من العناصر التالية: 
Win32 file header‏ 


هنا ستجد معلومات عن نوع هذا الملف » هل هو عأهك"هع ام الات ام اا0 وكيفية تنفيذه 


على نظم التشغيل من ويندوز . 
CLR file header‏ 


يحتوي على المعلومات التى لا بد لأآي ١0|أةءأأم‏ مه اع". ان يدعمها » يحتوي على طريقة 


كتابة ال ع اأ؟ managed‏ وو جود ال ۲S0 ۲٤€‏ من عدمه و خلافه. 


لا تهمك كثيرا المعلومات السابقة للنقطتين السابقتين » لإنك لن تتعامل معها سوى إذا ما كنت 


تحتاج لبتاء كو مبايلر خاص يك تحت بيئة عمل أ€.. . 


CIL code 


الكود الخاص ببرنامجك › يتم ترجمته فورا باستخدام 11[ التى تحدثنا عنها سابقا » سيكون عنها 


درس مل إن اع اله 

Type metadata 

تحتوي على تفاصيل الانواع الخارجية التي تستخدمها في برنامجڪ. 
An assembly manifest‏ 


الرابط ين ملفات الاسميلى المخلتافة › تحدد اصدار الاسميلى و خلافه. 
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Optional embedded resources 
اي ملف اسمبلي يمکن ان يحتوي على اي عدد من ملفات الريسورس تشير إلى صور وايقونات‎ 
و خلافه.‎ 


Private Assemblies .4 .17 


ال iesاAssemb‏ ateاiاP‏ ملف اسمبلی يعمل من خلال مسار البرنامج او التطبيق › حيث لن يبحث 
ال Su d٥‏ أهuكألا‏ عن هذا الملف سواء فى الريجستري او فى أي مكان آخر › فقط سيبحث فى 


مسار البرنامج عنه. 


فى حالة حذف برنامجك يتم حذف هذه الملفات معه » ايضا يمكنك نقل التطبيق بعد عمل 10ا66 


ملفات الاسمبلي الافتراضية او ال اأ التي تقوم بعملها هي من هذا النوع. 
Shared Assemblies .5 .17‏ 


هذا هو النوع الثاني » هنا لن تكون وحدك من يستخدم ملف ال اأ هذا » بل إن بإمكان الملف 
التعامل مع اڪثر من تطبيق على نفس الجھاز › مثلاً l ةداe › System.Windows.F۴0/]™5.d|‏ 


تجدها فى ملف الاسمبلى الموجود في الويندوز ولا يتم حذفها مع حذف برنامجڪ. 


اول نقطة ستتعامل معها لإنشاء ملف اسمبلي من هذا النوع هو ضرورة وجود اسم 1€ا14١لا‏ لهذا 
الملف حتى ا يتضارب مع باقي الملفات الآأخرى › أيام ال C0٧۷‏ كان هناك ما يعرف باسم C0۷‏ 
unique identifier (GUID)‏ yاا0baاg»‏ حیث یتم اعطاء اسماء مختلفة لکل CK0۷‏ جدید › الآن اصبح 
عليك اعطاءه ما يعرف باسم ۸4۳€ ع8١5۲0‏ والذي لا يعدو كونه 128 بت من الارقام تشترك 


المكونات التالية فى تحديده: 


© اسم ملف الأاسمبلي. 
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© ذسخة ماف الأاسميلى. 


AssemblyKeyFile „a ةaوج‎ gn3lı- public key value 


AssemblyCulture yذ فى حالة وجود اي اعدادت اقليمية‎ ١ 


مںااا٤ بين محتويات ملف الاسمبلي وال‎ ٣۵۸ يتم تکوینه باستخدام‎ Digit Signature 
.key 


لعمل K۷‏ انام نستخدم البرنامج ۵×ع.١5‏ 50۸5 بالشكل التالى مثلا: 


Command Prompt | ڪو د‎ 


SI K MvleSslKEVEALET SNK 


يمكنك ايضاً عمل ذلك مباشرة من خلال فيجوال ستوديو.نت من خlاJ «î Properties page‏ 


.Signing 


MultiThreading ةaدعتnlا المسارات‎ . 18 


5. 1. موقدوۃ 


تعرف نظم التشغيل الحديثة بأنها ۳"۶ع؟۷؟ء ع١‏ |i)كهtitااص‏ وهو ما يعنى امكانية تنفين 
اكتر من مهمة فى نفس الوقت › لذا تجد آن بامكانك تشغيل عدة برامج فى نفس الوقت. 
برامج أ€. من هذا النوع افتراضيا » لكنك تلاحظ في بعض البرامج ان البرنامج الواحد قادر على 
تنفيذ اكتثر من عملية في نفس الوقت دون أن يكون لهما تآثير متعارض › هذا ما يعرف باسم 
.multithreading‏ 
لذا تجد ان برنامج الماسنجر يتيح لك ارسال ملفات والحديث واستخدام الكاميرا والتحدث مع 
اكتر من شخص بنفس الوقت › وهو ما لم يكن الماسنجر قادرا عليه لو لم يكن يفصل هذه المهام 
داخل البرنامج الواحد عن بعضها » هذا هو مضمون درسنا الحالى. 
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جوبع الذوامر التي سنتعامل وعها هنا تقع تحت نطاق الئسھاء 13 read1اrh .Systen.‏ لذا قر 


lg باستیرادہ‎ 


العناصر الاساسية داخل محال الاأسماء هدا هي : 


العتنصر الو صف 
"hre‏ ل#تتعريف 11۲٤23‏ جديد والتعامل معه 
۲60001" مجموعة من ال ۸۲۴۵۵١١‏ يمكن لها التعامل فيما بينها 


Thread يحتوي على عدة حالات لأي‎ Enum rhreadState 


1۸٣٤2۵ بدء التنفیذ فی‎ ۹ E yS 


Thread Jı Iiھ اولي‎ ديıدحت‎ [hreadPrlority 


الجدول 12. 5. الفتات الرئيسية في مجالJل‏ lالÎJسleء System. Threading‏ 
بالاضافة إلى: 
Semaphore .1‏ 


Mutex .2 
Monitor .3 


وهي مجموعهةه من خوارزميات التزامن التي سنتعرف عليها في الجزء التالي 


Synchronization jوۈjill خوارزمیات‎ .2 . 58 


وهى فى الاساس الجوريزمات تستخدم لعمليات التزامن 5۷١٤٥۸۲0۸123110١‏ بحيث لا يسمح 
لأكثر من 1١۲۴3١4‏ بالوصول إلى نفس المصادر في نفس الوقت › لمزيد من التعرف على هذه 
الالحوريزمات يمكن البدء من هنا 


رابط گے 


http://en.wikipedia.org/wiki/Semaphore (programmin 
http://en.wikipedia.org/wiki/Mutual exclusion 
http://en.wikipedia.org/wiki/Monitor (synchronization 
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System. Threading. Thread .3.8 


الفئة الاساسية في مجال الاسماء هذا › تتيح لنا انشاء ۸۲8305 وتنفيذ مهامنا المختلفة 
عليها » مكونات هذه الفتة الاساسية هی : 
المكون الو صف 
قيمة توضح إذا كان ال 1۲8۵0 ما زال يعمل ام لا 


الأولوية الحالية 


اسم اthreadJ‏ 


توقف عمل ال ۸۲۴۵۵ حتى حدوث الحدث في () 01۸ل 


بدء العمل للمرة الأو لى 


الجدول 12. 6. اهم خصائص و دوال الفئة 20۵ 1'۸۲۵ 
ستقوم بداية بعمل تجربة سريعة للاستدلال على معنى ان يتم تنفيذن مهمتين في نفس الوقت › نعود 


قم بتجربة الكود التالي: 
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SESLIG TOIL Main(SEECINCOLl  aE0S) 
1 

OFQAETF LCF 

CEOS, 


Console.ReadKey () ; 
1 
static vold order1l () 
| 
for (int i = 0; i < 100; i++) 
{ 
Console.ForegqroundColor = ConsoleColor. Green; 
COOLS WNELEECE(LLIOSLEINGOS # FF FP, 
} 
} 
static vold order2 () 
{ 
oO (IRE 1 = I00; 1 5 O; ”ص1‎ 
{ 
Console.ForegroundColor = ConsoleColor. Red; 
CUONEOLS. WNELLELSIOSLEING(, FF FE ys 


VB.NET 


Private Shared Sub Main (ByVal args As String ()) 

OFQOESEL() 

OFF 2 0 

Console. ReadKey () 

ENC SUD 
Private Shared Sub order1l () 

For 1 As Integer = 0 To 99 
Console.ForegroundColor = ConsoleColor. Green 
CONSOLE WELLE LLIOSEEING() FE FF FF) 

Next 

ENC. Sub 
Private Shared Sub order2 () 

For 1 As Integer = 100 To 1 Step -1 
Console.ForegroundColor = ConsoleColor. Red 
CONSOLE. WELLE (L.TOSTEEINGO() #F °F ) 

Next 

ENCU SUD 


الكود كما هو واضح يقوم بطباعة الأرقام تصاعديا وتنازليا › الناتج الطبيعي هو طباعة التصاعدي 


ومن ثم التنازلى » فى حين يتم طباعة نتائج الدالة الآأولى بالآخضر والثانية بالآأحمر للتفريق 
لتكون شاشة النتائج بالشكل التالى مثلا: 


281 


الباب التانى عشر البروحة المتقدمة فى ال أ٥٠.‏ 


E file CY UsersfAhmed/Documents/ Visual Studio 2008/Projects/ConsoleApplicationêy’ CorsoleAppi.. mE 


الصورة 12. 10. نتائج التنفين. 


وهذا الطبيعى » يتم تنفين الداله الأو لى حتى الانتهاء ومن تم التانية حتى الانتهاء › آما الآن 
سنقوم بتعريف ك۸۲8۵3۵0] مختلفة للتنفين بحيث يتم تنفين كل دالة على واحد متها حيث سيتم 


تنفيذهم على البروسيسور فى نفس الوقت »› الكود التالى مثلا: 


SLal1CG FOIA Maln(SELInGll af£358) 
{ 

OFQEEL, 

OFOEEZ2 CF 


Console. ReadKey () ; 
٣ 


Static VOId. orderl () 


{ 
for (int i = 0; i < 100; i++) 
ا‎ 


Console.ForegroundColor = ConsoleColor. Green; 
LONEOLE. WELLE IL LOSLEEINGO, BET FF), 


ا 
1 
STtatlLeE TOIL oOFAdEFE2 ()‏ 
1 
TOE {INL 1L = OU; 1 > OF 1)‏ 
{ 
COnSOLe FOEEGEOUNQCOlLOF = ConsoleCoLOrE. Red;‏ 
CONSOLE. WEILILEL. TOSLEIRG EF Fy;‏ 
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VB.NET 


Private Shared Sub Main (ByVal args As String () ) 

Dim t1 As New System. Threading. Thread (order1l) 

Els SCLAEE) 

Dim L2 As New System. Threading. Thread (order2) 

E2. SLAFL Û0) 

Console. ReadKey () 

ENC Sub 
Private Shared Sub orderi1l () 

For 1 As Integer = 0 To 99 
Console.ForegroundColor = ConsoleColor. Green 
CONSOLE WELLE (L:TIOSLEINGO E " FF) 

NEKE 

ER EU 
Private Shared Sub order2 () 

For 1 As Integer = 100 To 1 Step -1 
Console. ForegroundColor = ConsoleColLlor . Red 
CONSOLE. WELLE L:TIOSEEINGO) E FEF 

Next 

ENC Sub 


الآن لنرى طبيعة النتائج. 


E file CY Users Ahmed/Documents/ Visual Studio 2008/Projects/ConsoleApplication6/ConsoleApplic...' 


الصورة 12. 11. نتائج التنفين. 


بالطبع النتائج لن تكکون ڪما هي كل مرة » جرب تغيير ال ۷اأ٣0أ٣۲‏ مثلا لواحد منهم وجرب 
النتائج » ستجد أن صاحب الأولوية الأعلى يتم الانتهاء منه قبل الثاني »› الكود التالي مثلا: 


LL.PEILIOEFILY = System. Threading. ThEeadPrEIoOFILY.HI1ighesL; 


VB.NET م‎ 


LL.PELOFILY = SVSLeMm: Threading: THEGAQPELOELEV.HIGhEST 
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ستصبح النتائج بالشكل التالي: 


E file CY Users Ahmed/Documents/ Visual Studio 2008/Projects/ConsaleApplication§/ConsoleApplic... 


الصورة 12. 12. نتائج التنفين. 
ستجد اختلافات فى التنفين › لكن الشاهد هو أن الكودين تم تنفيذهم سوية فى هذا الوقت. 


ملا حظة 
جويع الذوامر التي سنتعامل وعها هنا تقع تحت مجال الئسماء 13 .Systen. rhread1‏ لذا قر 


lg باستیرادہ‎ 


Priority AڇgلJgill‎ .4 .18 


تحدد ال ۷اأ٣تأ٣۴‏ أولوية التنفين عندما يتم ادخال ال ك١۸۲۴۵]‏ على البروسيسور» حيث ان ال 


0ا" ذو الاولوية الآعلى يحظى بعدد مرات تنفين › لتقريب المفهوم نفترض ان لدينا : 
1. مهمة 1 : اولوية قصوى. 
2. مهمة 2 : اولوية قصوى. 

في هذه الحالة يتم ادخال المهمة 1 للبروسيسور» ثم 2 › ثم 1 وهكذا. 

أما في حال كون مهمة 2 ذات اولوية اقل › يكون الآأمر بالشكل التالي: 

المهمة 1 » المهمة 1 » المهمة 1 » المهمة 2 » المهمة 1 »المهمة 1 »المهمة 1 »المهمة 2 ... 


و هكذا حتى الانتهاء من احدهما. 
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ليس هذا مكان شرح الجوريزمات البروسيسور» إنما لو آردت الزيادة يمكنك البدء من هناء حيث 


تجد عدة انواع من ال £^ schedul|i‏ : 


رابط ھے 
http://en.wikipedia.org/wiki/Scheduling %28computing%29‏ 


نعود مرة أآخرى › لتحديد ۲۲10۲١۷‏ أي مهمة لدینا نستخدم ال ۸١1۳‏ التالی: 


FUbLLC GMuUmM THFEAQPELOEILTY 


{ 


AboveNormal, 

BE LOWNOEMAL; 

Highest, 

OLE, 

Lowest, 

NoEmMaALg ZZ Défauls. vallê, 
TIMECETIELCAL 


PUDLIS Enum ThESaAQPELOELLY 
AboveNorma lL 
BelowNormal 
Highest 
ALéê 
Lowest 
Norma lL 
' Default value. 
TIMSECELETLEAL 

End Enum 


ويصبح الكود بالشكل التالي مثلا: 


ELaPEILGEILY 34 SYSTEM. TRAEEAQUTHI. TIAFEAOPFLOLIEV. HIGHEST) 


VB.NET 


Ll.PrIOrFItEyY = System. Threading. ThEeadPrIOFLEyY: Highest 


قبل البعد عن المواضيع الاساسية › لا تنسى ان بامكانك استخدام () ۴٥ع51‏ لايقاف التنفين 


لمدة» 058 0لاS‏ لايقاف مؤقت ... الخ من النقاط التى بدآنا بها شرحنا لهذا الدرس. 
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Parameteri1zedThreadStart 
لعلك لاحظت في المثال السابق اننا نمرر الدالة ومن ثم نقوم بعمل () ٣2ا5 ليها‎ 


لتنفيذها فى ]۸۲۴۵١‏ متنفصل » لكن ماذا لو كانت هذه الدالة تستقبل بارميترات © 


الحل بسيط ›» باستخدام اا Parameter l1zedThreadS ta‏ بالشکل التالئي مثلا: 
CH‏ 


Thread t = new Thread (new ParameterizedThreadStart (functlionname) ) ; 
Ls» SLAFT{CAEMS 


VB.NET 


Dim tL As New Thread (New ParameterizedThreadStar (functilionname) ) 
E». SLAET (PaEMS ) 


لو كنت تود استخدام دالہ تعود بقيمہ فلا يوكن استخدام a٣٣‏ ا015 aءءإ‏ .٣آ‏ ولكن يمكن استخدام 


EndlInvoke () qفû‎ aجتانلا‎ aclرãg‎ Beginlnvoke () 


Foreground and background 


هناك نوعان من ال كك2ءع/۲"٣ا:‏ 


:Foreground Thread‏ هذا يعني ان البرنامج لا يمكن ان يغلق حتى يتم الانتهاء من تنفين 
جميع ال 2dsع۲ ۴oreground t1‏ الموجودة فيه » النوع الافتراضي لأي 1۲834 تقوم بانشاءه هو 


«e w 


من هدا النوع. 


:Back ground "hre‏ هذا یعنی ان البرنامج یمکن ان یتم اغلاقه حتی لو لم یتم تنفید 


كافة ال 5 background t۸۲ ٤۵‏ » یتم عمله بالشکل التالی مٹلا: 


CF ) ڪو د‎ 
L.lIsBackground = true; 
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VB.NET ا‎ 


L.IsBackground = True 


Threads Synchronization .7.18 


عندما تعمل مع Threads Jı‏ فلا أحد يضمن آلا يحصل تداخل بين مسارات عملڪ 
المختلفة» لذا تم ايجاد ما يعرف ب ع)عءماء١S۷‏ والذي يطبق مبادئ التزامن التى اشرنا إليها 


مختصرا في درس سابق . 


يتم استخدام SyYNCLOCk‏ 0ck...EndاyNnc‏ والتي یتم تضمین الکود داخلھا كي لا يحصل آي 
تداخل » حيث تقوم باغلاق مصادر هذا المسار ولا تسمح لآي ڪو د في نفس مجال الأسماء بالتداخل 


إلا بعد الإنتهاء › بالشكل التالى مثلاً : 


1OCE {(MYLOCKE) 

{ 
FOF 1 . 1 & JOUOU; LFF) 
{ 


Console.WriteLlLine (i1.ToString ()); 


} 


Console.Write (number) ; 


SYINCEOCE MYLOGCK 
For 1 = 0 To 1000 
CONSOLE. WELLELLNE(L:TOSTLEIRNGO O) 
Next 1 
Console.Write (number) 
ENC SVNCLOCK 


حيث لن يسمح لأآي مسار يستخدم المتغير ٤110ل"‏ ان يعمل إلا بعد انتهاء حلقة التكرار وأمر 
الطباعة أيضا » لذا قم بوضعها في كل مكان تخشى أن يحصل فيه تداخل لقيمة المتغیر ۸1۳١6٥۲‏ 
ثلا . 
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يمكنك معرفة المزيد عن التزامن في المسارات من الدرس التالي - باللغة العربية - : 


رابط گے 


http://vb4arab.com/vb/showthread.php ?t=6341 


ThreadPool .S .158 


دحيرة المسارات - إن صح التعبير - هي البديل لكترة المسارات في بڊرنامحڪك و ما تتسبيب 
يه من تشو يش في البرنامج والكتثير من الخلط بسبب آوامر التزامن والمصادر وخلافه › يتم ذلك 
بتكوين محموعة من المسارات المشتركة » ويكون ذلك أكتر افادة في حالة المسارات التى لا يتم 


تنفيذها بكثرة في البرنامج : 


TOE {AINE 1 = ls : 1++( 


ThreadPool.QueueUserWorklItem (sometask.Execute) ; 


VB.NET 


For 1 As Integer = 1 To 5 
ThreadPool.QueueUserWorkltem (AddressOf sometask.Execute) 
Next 


يمكنك معرهفة المزيد عن هذا الموضوع من خلال الدرس التالي - باللخة العربية - : 


رابط گے 


http://vb4arab.com/vb/showthread.php ?t=6340 


BackgroundWorker 9.18‏ 
تستخدم ال Back jgrتundNor)k e٤‏ لتنفيذ مهمة معينة تآخت وقتا طویلا بدا عن المسار 
الاساسي للبرنامج » من أمثلة ذلك الدوال الخاصة بالقراءة من €٥٤أ5€۲۷ W€‏ أو عمليات معالجة 


الصور او جلب بعض البيانات من كومبيوتر آخر أو تنفيذ عملية بحث › او اجراء مجموعة من 
العمليات طويلة الآمد. 
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الباب التانى عشر البروجة المتقدوة فى ال أ٥.١.‏ 


ومع أنك كان بإمكانك عمل هذه الدوال عن طريق تنفيذها في ۸۲۴۵4 تقليدي › !إا أن 
Back ËÈroتun Nor ker‏ تعطيك مزيد من التحكم › ببساطة يمكنك اخباره ال بالدالة التي 
ترغب في تنفيذها ومن ثم تشغيلھا عنj‏ ڕزرڍق )( «RunNWOFKEFASYINC‏ ارا بعد انتهاء التنفيت 
يتم تنفيذ حدث Run Norke:›C0 "p1 e4‏ والتي يمكنك فيه مثلاً عرض النتائج بعد انتهاء 
تنفين هذه المهمة. 


Tor TIRE 1 = j; 1 خخ‎ o 1) 


ThreadPool.QueueUserWorkIlItem (sometask. Execute) ; 


For 1 As Integer = 1 To 5 
ThreadPool.QueueUserWorkltem (AddressOf sometask.Execute) 
Next 


للبدء بالعمل قم بعمل Ws ۴٥۲۳‏ 0ك, أل . قم برسم بعض الادوات ومن ثم ضع زر امر للبدء 


بتنفيذ المهمة » واخيرا قم بسحب آداة €۲ Background WN 0٣k‏ بالشکل التائی مٹلا: 


BackgroundWorker‏ و 
BindingNavigator‏ 3# 
Tj BindingSource BınrdingNavıgqator‏ | 

Button Version ZA.0.0.Û from Microsoft Corporation 

CheckBorx NEI Lomponent 

CheckedListBox 

(##] ColorDialog 

E ComboBox 

lE| ContetMenuStrip 

jl DataGridView 

3 Uataîset 
Ta E E TE E -. | س ت ت د‎ 


Fm. أ‎ TT r E Cm mm 


Specifies support for transacted Inıtiallzatıon. 


BackgroundWorker slدأ%1‎ .12Z .12 الصورة‎ 


آهم دالتين هما DoWoFK lia‏ والذي يتم استدعاءه وقت بدء التنفين ›» والحدث 


etedاorkerComp Run N‏ والذي يتم اطلاقه بعد الانتهاء من التنفيذ بالشكل التالي مثلا: 
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الباب الثانى عشر البروجة المتقدوة فى ال أ٥١.‏ 


private void ProcessNumbersBackgroundWorker_DoWork (object sender, 
DoWorkEventArgs €) 

{ 

} 

private void ProcessNumbersBackgroundWorker_RunWorkerCompleted(object sender, 
RunWorkerCompletedEventArgs e) 

| 


VB.NET 


Private Sub ProcessNumbersBackgroundWorker_DoWork (ByVal sender As Object, ByVal 
e As DoWorkEventArgs) 

EN Sub 

Private Sub ProcessNumbersBackgroundWorker_RunWorkerCompleted (ByVal sender As 
Object, ByVal e As RunWorkerCompletedEventArgs) 

Enid Sub 


CF 


ProcessNumbersBackgroundWorker. RunWorkerAsync (args) ; 


VB.NET 


ProcessNumbersBackgroundWorker.RunWorkerAsync (args) 


حيث يتم تنفين الكود الموجود فى الحدث DoWNO۲|K)‏ . 
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الادخال و الاخراج فى 


.Nel System. IO 


الباب التالث عشر 


الادخال و الاخراجح فى ال أ٥؟.‏ 


1. الفنات النساسية فى 10 .٣ء Sys‏ 


الفئة الوصف 
BinaryReader‏ [ 1 
تتيح لك قراءة وكتابة بیاناتڪ على شکل sکص‌Fil Binary‏ 
Billart WIILECLE‏ 
Bul ]eredStrean‏ مخزن مؤقت للبیانات ١٤لا‏ التى يمكن أن تأخن طريقها 
لاحقا إلى الذاكرة 
Dile LOLLY‏ 
مختص بالتعامل مع المجلدات والمعلومات المتعلقة بها 
DIT CLOTTING‏ 
D۲18 10‏ مختص بالتعامل ومعرفة المعلومات عن وحدات التخزين فى 
جھازك Driver‏ 
File‏ 
مختص بالتعامل مع الملفات وكل ما يتعلق بها 
E TG‏ 
anععا1e5t ١1‏ يمكتنك من الوصول للملفات وعرض البيانات على شكل 
SIE IS SIN‏ 
1eystemNatcher‏ ۲1 مراقبة ملف او مجلد واخبارك بالتعديلات التى تطرأً عليه 
1 مختص بالتعامل مع المتغيرات النصية لتحويل المسارات إلى 
صور » مة 0 ظام ا فیا 
StreamReader‏ 
القراءة والكتابة إلى الملفات يصورة نصية 
StreamWriter‏ 
5101۶ نفس السابق » فقط مع اختلاف ان Writer Jig Reader Jı‏ يتم 
TILE‏ انشاءه من ال 1ا E‏ 


الجدول 13. 1. أهم فثات مجال الأآسماء 10 Syste™”.‏ 


هناك فثات اخرى فى هذا المجال من الاسماء » ولكن هذه هى أشهرها وأكثرها استخداما. 
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الباب الثالث عشر الادخال و الاخراد فى ال أع٠.‏ 


DirectoryInfo 9g Directory ju #رlوكلا‎ 2 


الفارق الآساسي هو في ال ١٥۲ل1اآ٣ل۲۷أك‏ الخاص بها » حيث ان ۷٣ا0اc٠۲‏ 1( مشتقة مباشرة 
من j ec‏ ط0 اما ۴0٥‏ ory]nاD1rect‏ فهي مشتقة من ١11٥5 ا٤e2۳11۸ ٥‏ المشتقة بدورها 
من ال اء[ 00 » اما الفارق في التعامل فهو ان الفئة 0٣۷‏ ا٤١1۲(‏ تعرف دوالها من النوع 
٥1ااsS‏ بحيث يمکن استخدامها مباشرة › اما مع 0۲/1۸10 ٤۲ا1(‏ فالامر مختلف حیث 


يتطلب الامر تعريف نسخة قبل استخدام الدوال. 
نفس الامر ينطبق بالتبعية على الفرق بين ۴11٥‏ و... 1۸۱۴10ع٥11"٣۴‏ 


كلا الفئتين ٥‏ ۷]1]ا0orاecمD1r‏ و ١ ]e1N"n10‏ تحمل معها الخصائص الاساسية ل 


۲١ 1e5 ren 1 0‏ اضافة لخصائص التعامل مع الملفات والمجلدات » وهي: 


الخاصية الوصف 


قراءة و كتابة تاریخ الانشاء 


قراءة وكتابة آخر تاريخ للدخول على الملف او المجلد 


معرفة اسم الملف آو المجلد 


الجدو ل 13. 2. الخصائص المشتركة. 


5ر 


الباب الثالث عشر الادخال و الاخراد فى ال أع.١.‏ 


Directory1nfo Aiأdll‎ 3 


اضافة لاحتواءها على الخصائص السابقة من ۲82۳"11١10٥0‏ ا5٠11‏ [» تحتوي هذه الفثة 


على الدوال التالية: 


الدالة أو الخاصية الو صف 


Create ()‏ انشاء مجلد او مجلد فرعي في المسار المحدد 


CreateSubdlirectory () 


() eماعاeع‏ حذف المجلد وكامل محتوياته 


G11 )(‏ تعيد مصفوفة من الاسماء توضح اسماء المجلدات الفرعية 
٣11e s )(‏ اعت تعيد مصفوفة ۸۲۲۵۷ من ۳١1٠١١٣١١‏ تحتوي على كافة 
07e 1٥ )(‏ نقل المجلد وكافة محتوياته إلى مكان جديد 
حezعاa‏ معرفة المجلد الأاكبر من هذا المجلد 
ح۸00 لمعرفة ال 0۲۷6١‏ الخاص بهذا المجلد 


الجدول 13. 3. أهم خصائص و دوال الفئة. 
قل اندو ٠‏ انت بحا تحر تما من حه ال . كتك تمردر اتمكان الذي تود افده مه 
في المشيد 0١5۲۷٣0۲‏ بالشكل التالي متلا (لمسار البرنامج) : 

CF 


DirectoryInfo dirl = new DirectoryInfo("."); 


VB.NET کڪ‎ 


Dim QIFEIL .A§ Nêw Directory InlfolTs.™) 


Cf 


DirectoryInfo dirl1l = new DirectoryInfo ("C:\Ahmed") ; 


VB.NET 


Dim dirl1 As New DirectoryInfo ("C:\Ahmed") 
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الباب الثالث عشر الادخال و الاخراد فى ال أ٥.١.‏ 


a‏ ڪنت مبرمج سي شارب فلا بد من عدم وضع وحدها داخل علامات التنصيص لان لها 
استخدامات أخرى مثل ٣إ\ ۸١‏ وخلافه › لكن يمكنك تحديد نوع البيانات بالداخل بأنها مباشرة 


عن طريق اضافة € بالشكل التالي متلا: 


CF 


DirectoryInfo dirl1 = new DirectoryInfo (@"C:\Ahmed") ; 


ليس فقط بامكانك الربط مع مجلد موجود › بل يمكنك الربط إلى مجلد غير موجود ومن ثم 


انشاءه: 


DirectoryInfo dirl1l = new DirectoryInfo (@"C:\Ahmed\Test") ; 
dir1.Create (); 


VB.NET 


Dim dir1 As New DirectoryInfo ("C:\Ahmed\Test") 
dir1.Create () 


وتك انض اسر اکن كاف المافات داخل الماد 
CF‏ 


Filelnfo[]|] 1imageFiles = dir.GetFiles(); 


VB.NET 


Dim imageFlles As Flilelnfo() = dir.GetFlles ()‏ 
يمكنك استخدام خصائص ۲11٠5/51٥۳1١٥0‏ التي تحتوي على كافة المعلومات المتعلقة 
بالمجلد» فمثلا لعرض تاريخ إنشاء المجلد: 


CF 


CONSOLE. WELLELINE(QALIEILCEECESALELONTIME) 


VB.NET 


Console.WriteLlLine (dir1.CreationTime) 

او يمكنك استعراض ملفات من نوع معين فقط » مثلاً لاستعراض ملفات الصور فقط 6|۴ ومن ثم 

كتابتها › لا تنس ان الناتج من نوع ۲11٥1۸٣1۳٥‏ ویمکن تطبیق خصائص ٣11٥6/5٤٣1۸۱٥0‏ 
عليها. 


ا 


الباب الثالث عشر الادخال و الاخراد فى ال أ٥..‏ 


using System; 
using System.Collections.Generilc; 
USING SYSTEM: LInNG? 
using System. Text; 
using System. IO; 
namespace ConsoleApplication’? 
CITES PEOGEAM 
ACACLC FOLIC Main {(StFEINGLl afgs8) 
{ 
Directorylnfo dirl = new 
DirectoryInfo (@"C:\Users\Ahmed\Documents\Visual Studio 
ZUUS\WEDSITES WEBSITE) 
FlileInfo[] imagerF'liles = dir1.GetFiles("*.gif"); 
foreach (Filelnfo f in imageFiles) 
{ 
Console.WriteLlLine ("Name: {0} - Creation Date: 
£.Name, f.CreationTime) ; 
ا‎ 
Console. ReadKey () ; 


VB.NET 


IMDOETLES SYSLEM 
Imports System.Collectlions.Generic 
ImMOOrtSs System: Ling 
IMOOE TS SVSLEM le 
EMOOEES OYSECEM.LGY 
Namespace ConsoleAppl1catlion? 
Class Program 
Private Shared Sub Main (ByVal args As String () ) 

Dim dirl1l As New DirectoryInfo ("C:\Users\Ahmed\Documents\Visual 
SLCUQLG 2000 (WEDSILEGS WEBS ICGAT") 

Dim imageFlles As Filelnfo() = dir1.GetFiles("*.gif") 


For Each f As Filelnfo In imagerF'iles 
Console.WriteLlLine ("Name: {0} - Creation Date: {l1l} . " & Chr (10) 
g¢ FF EC CNOFCCLVOy, & FF. TT. Nace, LT<CECALLONLIMS) 
Next 


Console.ReadKey () 
ENC SUD 
End ClIas8 
End Namespace 


الناتج سيكون بالشكل التالي مثلا: 
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الباب الثالث عشر الادخال و الاخراد فى ال أع.١.‏ 


E EE Ahmed, Doce VELA xudê AA Fro Lomo A pplfahoA f Lor êîlêA pp lê 


haz E0 11 Creat lian Uate: bG712728B8H E: PF 


Fale. û IF CFA 1o Dakê: Sz 2080S 2:IEbE:TE PNM 


miszedl.gqifF = Creation Uate: S722 208H 2:18:34 FA | 


sEoFE AIF UGPEat Io Hatê: S722 728B 2:lb:1E FN 
ıı CAFE „Û IF — Creation Date: b7l#988E G:F: PF _ 
start2.qi1f Creation Date: #17288 S:ST:1?7T PM. 


tEFûg . qi = LFeAat lai lale: SF a0 e-l1btl FN 


الصورة 13. 1. نتائج تنفين البرنامج على الشاشة 


4. التعامل مع الفئۃ 


لا شىء جديد» فقط ستفقد الخصاتص المتاحة من خلال الفتة 


و في 


المقابل لن تكون محتاجا لتعريف نسخة قبل البدء بالعمل » لذا يمكنك العمل على الفئة مباشرة 


بالشكل التالى مثلا لعملية الحذف 


Cf 


System. IO. .Delete (@G"C:\ahmed"”) ; 


System. IO.Directory.Delete ("C:\ahmed"™) 


ور 


الباب التالث عشر الادخال و الاخراد فى ال أع"١.‏ 


5. التعارل وع الفنۂ ٥fہDrive1‏ 
تتيح لك هذه الفئة استعراض ال 0۲1۷6۲5 في جهازك ومعرفة بعض المعلومات عنها › هذا 


المثال مباشرة من ڪتاب 2008 :Pro.CSharp‏ 


CORSO LG.WELEELING (TRT FID WILD UOFLTEINTG TREY 
// Get info regarding all drives. 
Drivelnfo[] myDrives = Drivelnfo.GetDrives(); 
7 Now print QEive Stag, 
foreach (Drivelnfo d in myDrives) 
{ 
Console.WriteLlLine ("Name: {0}", d.Name); 
Console.WriteLine ("Type: {0}", d.DriveType); 
// Check to s66 Whether the dfivée 15 Mountéd. 
Lf (d.IsReady) 
Console.WriteLlLine ("Free space: {0}", d.TotalFreeSpace); 
CONSOLE. WELLELINE (TEOEMAC: {UO}, O.DrFIVEEOEMAL)} 
Console.WriteLlLine ("Label: {0}", d.VolumeLabel) ; 
Console.WriteLlLine (); 
} 
} 


Console.ReadLine () ; 


VB.NET 


COoONSOLE:WEILELILNEGE (TITRE FUN WIL DEIivEeInllg tT & CBF (LO) 


GEL INEoG Fearing ALL dEITeS: 
Dim myDrives As Drivelnfo() = Drivelnfo.GetDrives () 
' NOW pEINL OEIC SEES. 
For Each d As Drivelnfo In myDrives 
Console. WrEILIteLine ("Name: {O0}";, d.Name) 
Console.WriteLine ("Type: {0}", d.DriveType) 
' Check to see whether the drive is mounted. 
lf d.IsReady Then 
Console.WriteLlLine ("Free space: {0}", d.TotalFreeSpace) 
CONSOLE. WELLELINEG (TFoOIMAE:S UF"; CO.DECIVEFOEMaAE) 
Console.WriteLlLine ("Label: {0}", d.VolumeLabel) 
Console.WriteLlLine () 
ENO LE 
Next 
Console. ReadLine () 
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الباب التالث عشر الادخال و الاخراد فى ال أع٠.‏ 


6 . التعارل مع الفنئۃ ۴11٥1, ۴٥‏ 


الدوال الرئيسية فى هذه الفئة - اضافة بالطبع للخصائص العادية - : 


الخاصية او الدالة الو صف 
Append rext ()‏ انشاء StreamN r1 ter‏ للكتابة في الملف 
() 010۔ا نسخ الملف 
() #اaعاCc‏ إنشاء ملف واعادة كائن "€2۳] ا1۴8 ۴"1 
Stream Writer ء«lشزı‎ CreateText ()‏ للکتابة في الملف 
CE Delete ()‏ 
¥إ0اD1rec‏ معرفة اسم المجلد 
ES EEE BE DirectoryName‏ 
en3thا‏ معرفة حجم الملف 
Move 1٥ )(‏ النقل » يمكنك تحديد اسم جديد للملف المنقول 
Name‏ اسم الملف 
0P١ )(‏ فتح الملف مع امكانية القراءة والكتابة وخلافه 
Pe R20 )(‏ هفتح الملف للقراءة فقط 
ia OpenText ()‏ الف بڊlستخIıم SLtreamReader‏ 
() enNr1teم0p‏ فتح الملف للكتابة فقط 


الجدول 13. 4. أآهم خصائص و دوال الفئة. 
بعیدا عن خواص ٤34۳٣۸٥404٤۲‏ ۲٤اS‏ والتی ستتعرف علیھا تفصيلا فى جزء احق من هله 


الروت ر رف کے ا ا ف 
لانشاء ملف مثلا باستخدام () ٤خ Crea‏ : 
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الباب الثالث عشر الادخال و الاخراد فى ال أع١.‏ 


Filo TE = Ney FiLlLoThEO (OTO Te EEE 
FileStream fs = f.Createl(); 


VB.NET 


DimM:E AS No FLLeINIO(T CETTE) 
Dim fs As FileStream = f.Create () 


ظبغا لا تنس آن بامكانك استخدام آي من الخصائص الموجودة في ۲11۴5/5٤6۳1۸10‏ ڪما 
سبق » فقط الخاصية ٠5‏ اا ط1٣‏ اا هي خاصية مميزة نوعاً ما حيث تشمل عدة تفاصيل » حيث 
يمكنك من خلالها تحديد إذا كان الملف مخفي ام ظاهر › للقراءة فقط ... الخ. 

مثلاً لمعرفة هل الملف مخفي أم لا ؟ 


L1If ((Flle.GetAttributes (path) & FileAttributes.Hidden) 
Fl1leAttributes.Hidden) 
{ 


} 


VB.NET 


If (Flile.GetAttributes (Path) And F1l1leAttributes.Hidden) = Fl1leAttributes.Hidden 
Then 


ENC . LE 


Fl1le.SetAttributes (path, Flle.GetAttributes (path) | Fl1leAttributes.Hidden) ; 


VB.NET 


F"l1le.SetAttributes (path, Filile.GetAttributes (path) Or FlileAttributes.Hlidden) 
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الباب الثالث عشر الادخال و الاخراد فى ال أع١.‏ 


انشاء و فتد الملفات باستخدام () Ope‏ 


الكود التالي ستحد انتا نستخدم الدالة )( Open‏ مع الخاصية 
ا ۰ 0ا ۲1 وهي ما تفيد انه لو وجدت الملف قم بفتحه › لو لم تجده قم 
بانشاءه: 


FIlETRITGS F2 = HEN TIlE EOC TE TRT) 
FileStream fs2 = f2.O0pen (Fl1leMode.OpenOrCreate, FlleAccess.ReadWrite, 
Fl1leShare.None) ; 


Dim £2. As New FIlelnifo (TC: TESTA TEL") 
Dim fs2 As FileStream = f2.Open (Fl1leMode.OpenOrCreate, FlleAccess.ReadWrite, 
F'i1leShare.None) 


هناك حالات أخرى أيضا لفتح وانشاء الملفات: 
الحالة الوصف 


قم بڊانتاء ملف و لو وجدته قم بانشاءه فوق الموجود 


فتح الملف لو كان موجود آو انشآه لو لم یکن موجودا 


قم بفتح الملف وانتقل لأآخره لبدء عملية الكتابة › لو لم يكن الملف 


موجودا قم بفتح واحد جديد والبدء بالكتابة من آوله › عموما هي > 
تظهر في حالة الفتح باستخدام 06٤١‏ وإنما فقط في حالة 


OpenWrite 
.١"1|٥١]١ 10 الجدو ل 13. 5. الدوال الخاصة بالفئة‎ 


ال ce55Sءc ۴۳11٥2‏ ايضا له ثلاث حالات مجموعة فى هذا ال 1۸1۳ع 
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الباب الثالث عشر الادخال و الاخراد فى ال أع١.‏ 


publl1c enum FileAccess 


Read, 
WETLê, 
ReadWrite 


FPFUGLICG Enum ELleSharéê 
None 
Read 
Write 
ReadWrite 
End Enum 


6. 2. فتح و انشاء الملفات باسنغخدpI‏ )( OpenRead‏ و 
OpenWrite ()‏ 


مثل ما سبق » عدا انك ستكون ملزما بنوع واحد فقط من العمليات. 
6. 3. فتح الوېلفاٽ ڊlښwتخدpI‏ )( OpenText‏ 
الفارق الوحيد هو ان القيمة المعادة تكون من نوغ FileStream wally StreamReader‏ 


بالشكل التالي مثلا: 


FIlEINEGO EG = HOE FILET (OCB OE, 
StreamReader sreader = f5.OpenText (); 


VB.NET 


Di £5 AE Ve FIle IlNnioONCE Bool IRE"™) 
Dim sreader As StreamReader = f5.OpenText () 
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الباب التالث عشر 


الادخال و الاخراد فى ال أع"٠.‏ 


g CreateText () plaخüwlڊ الفتح‎ .4 .6 
AppendText () 


مثل السابقة › الفارق فقط يمكن ان القيمة المعادة ستكون من نوع 1€ e2™"N1£1]ا5.‏ 


7 التعارل وع الفنة ۴:1٥‏ 
نفس ما ذكرنا في حالة المجلدات » لن تكون مجبراً على تعريف نسخة منها نظراً لإنها 


1٥‏ ااك يل يمكنك العمل عليها مباشرة. 


هناك دوال أخرى جديدة فى الفتة لعمليات القراءة والكتاية هى: 


الدالة 
KeadAllIEvVLEeESl)‏ 


ReadAllLines () 
ReadAllText () 

Will TE 0) 
WriteAllLines () 


WriteAllText () 


الو صف 


array of byes Jودج‎ Jلكش قراءة البيانات على‎ 


قراءة البيانات على شكل مصفوفة من الاسطر 
قراءة جميع البيانات كتلة واحدة 

ڪتlبة byte by byte‏ 
الكتابة على شكل اسطر 


الكتابة ككتلة واحدة 


الجدو ل 13. 6. بعض الدوال الخاصة بالفئة .۲11|٥‏ 


ویمکن استخدامهم بالشكل التالي مثلاً - من كتاب 2008 م2۲ Pro ٤C5‏ 


05 


الباب الثالث عشر الادخال و الاخراد فى ال أع١.‏ 


1 


InitlializeComponent ( 
SLFInG I]. mMyiasks = 


FFI BL NFOOM SIRKE", TCOLL Dave” 
FOAL MoM. ANU DOT, TPIT XDoOS SoU" 
}; 
/7 WEILe Out ALL data bo file oh C dFive, 
FILLE. WELESALILINGS (OTC \CASES TST", MmMVTaASkKS); 
// Roll ICE LL Balk An. BENE Oil 
foreach (string task in File.ReadAllLines (@"C:\tasks.txt") ) 
{ 
Console. WEILTeLInëê (TODO: {1OF", task); 
ا‎ 


VB.NET 


DOIN MVLAaASES. AS SELIG, = {FFI BoLNLEOOM SINET, FOS LL‘ DAVE", TCS LL Mom. ana 

DAO, TFPI OOK SOU) 

' Write out all data to file on C drive. 

Filée.WrFIteALllLines ("C:X\taskKs. TXT", mvTaskKS) 

' Red 1t all back and print Oul. 

Fort Each task Ag SlrIiné Im File. ReEadALILInES (FC: \ CASKET") 
Console.WriteLlLine ("TODO: {0}", task) 

Next 


معلومة اضافية 
في أ€١.‏ » يمكن للفنة إذا كانت تنجز الواجهة ع1(1505201 ان نقوم بتعريفها في مكان 
ومن ثم حذفها خارج هذا النطاق بالشكل التالي مثلا: 


using (CarClass newCare) 


{ 


// OG Oeil IoNE 


ا 


VB.NET 


Using newCare As CarClass 
' do operatlons 
End Using 


لذا سنحاول استخدامها ايضاً مع الملفات حتى ¥ تبقى معلقة في الذاكرة بالشكل التالي مثلاً: 


Filelnfo f = new Filelnfo(@"C:\test.txt"); 
using (StreamReader reader = f.OpenText () ) 


{ 


/7 Codé heré 


} 
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الباب التالث عشر 


الادخال و الاخراد فى ال أع.١.‏ 


Dim TF BS Nev FIle loO (TCS COLLET) 
Using reader As StreamReader 
' code here 

End USING 


= f.OpenText () 


Stream 8‏ 
Stream Jı‏ يقصد به تدفق او نقل البيانات ما بين مصدر ومستقبل سواء ڪان ذلڪ بين 
ملفين او بين جهازين على الشبكة أو طابعة أو خلافه » حيث يتم نقل البيانات في الغالب على شكل 

seQ@uance of bytes‏ حتى نهاية الملف أو البيانات. 


فى ا۸€. » هناك الفئة "10.51۲82۳ ."۳ع اكرS‏ والتى تعتبر الفئة الأآم التى سنتعامل مع غالب 


فناتها لاحقا › تحتوي هذه الفئة على الدوال والخصائص الرئيسية التالية 


الخاصية أو الدالة 
CanRead,‏ 
CanWrite‏ 


Close () 
Flush () 


Length 
ES EI 


Read(), 
ReadByte () 
Seek () 


setLength () 


ETE OT 
WriteByte () 


الو صف 


خصائص تتيح لك معرفة إذا كانت عملية ال ۳ك5]۲€۴ هذه تقبل 
عملية الكتابة أو القراءة وغيرها 

اغلاق العملية وكل ما يتعلق بها من ملفات و خلافه 

تحديث بيانات المستقبل بالبيانات الموجودة حالياً في ١١ا8‏ لو لم 
يكن هذه العملية تدعم وجود Buffer‏ فهذه الدالة ا تقوم بآي شيء في 
الواقع 

خاصية تعيد حجم ال 5۲8۵۳ بالبايت 

تحدد المكان في stream Jı‏ 


قراءة بايت او مجموعة من؟ع٤0۷‏ 


وضع المؤشر في مكان جديد في هذا ال S۲۴4۳"‏ 
تحدید طول ال 5۲۵۳ الحالی 


كتابة بايت او مجموعة من ال كعأyة‏ 


الجدو ل 13. 7. بعض الدوال الخاصة بالفئة "€31] 1ا5 . 
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FileStream AۂÃidll‎ .1 .5 

هذه الفئة التي تطبق الفئة القاعدية 55هأ٤‏ أ٣305۲3‏ السابق تختص فقط بالتعامل مع ال 
sir eam‏ مع الملفات. 

المثال التالي يوضح الكتابة في عدة أماكن من الملف ومن ثم قراءة البيانات المكتوبة - 
قبل الكتابة فقط نحتاج لتحويل الرسالة إلى 0۷65 لذا لا تنس هذه الخطوة. 


private vold fl1lestreamexample (string msg, string beforeendmsg) 
{ 
using (FileStream f1 = File.Open (@"C:\test.txt", 
FlileMode.Create) ) 
{ 
byte[] msgArray = Encoding.Default.GetBytes (msg) ; 
byte[] beforeendmsgArray = Encoding.Default.GetBytes (beforeendmsg) ; 
f1.Write (msgArray, 0, msgArray.Length) ; 
FLL POSILIGORN = TSLCFEAM. LENGE & IU; 
f1.Write (beforeendmsgArray, 0, msgAsByteArray.Length) ; 


// view total message. 
long totalLenght = msgArray.Length + msgAsByteArray.Length; 
byte[l] filemsg = new byte[totalLenght]; 
TOF (NE 1 = OF 1-S TCOLALILENGNL;, LE) 
fl1llemsgli] = (byte) f1.ReadByte (); 


Console.WriteLine (Encoding.Default.GetString (fl1lemsg) ); 
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VB.NET 


Private Sub fl1lestreamexample (ByVal msg As String, ByVal beforeendmsg As 
SEEING) 
Using f1 As FileStream = File.Open ("C:\test.txt", FileMode.Create) 
Dim msgArray As Byte() = Encoding. [Default] .GetBytes (msg) 
Dim beforeendmsgArray As Byte() = 
Encoding. [Default] .GetBytes (beforeendm 
f1.Write (msgArray, 0, msgArray.Length) 
FL, POSILLIOnN. = TFSLEEAaM. LENnGNE ك‎ 10 
£1.Write (beforeendmsgArray, 0, msgAsByteArray.Length) 
' view total message. 
Dim totalLenght As Long = msgArray.Length + msgAsByteArray.Length 
Dim fl1lemsg As Byte() = New Byte (totalLlLenght - 1) {} 
For 1 As Integer = 0 To totalLenght = 1 
fllemsg(i) = CByte(f1.ReadByte () ) 
NeXT 
Console.WriteLlLine (Encoding. [Default] .GetString (f1lemsg) ) 
ENC USING 
ENG SUS 


8. 2. التعامل مع الفنات المسشتقہۃہ 


ذڪر نا في أو ل دروستا في مو ضوع الادخال والإخراج أن لدينا عدة انواع من القراءة 
والكتابة فی stream‏ ذڪر نا منها SLtreamWriter, StreamReader‏ 


aa; i BLHAFYVREGCETE, BINAL YNEILETE gg SCCLCINGOWEILEGT, SCLINOREGEEs 
ما ستبداً في التعرف عليهم الأن.‎ 


StreamWriter, StreamReader .3 .8 


الفئات الأشهر والأكثر استخداما من بين الفئات الثلاث السابقة › تحتوي على الدوال 


الاساسية لعملية الكتابة والقراءة التالية: 
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SLTEAMINEILET 


الدالة أو الخاصية الو صف 


مسح كافية محتويات buffer Jı‏ 


الجدو ل 13. 8. بعض الدوال الخاصة بالفiئخة .SLtreamWrFi1t®rF‏ 


StreamReader 


تحتوي بالاضافة إلى الدوال الثلاث الأولى في الفقرة السابقة: 


الدالة أو الخاصية الو صف 


الجدو ل 13. 9. بعض الدوال الخاصة بالفئخة .SLreaMmR€2ad€rF‏ 
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متال يجمع عمليتي القراءة 


الادخال و الاخراجح فى ال أع؟. 


private void write (string msg) 
أ‎ 
using (StreamWriter wl = File.CreateText ("test.txt"”) ) 
أ‎ 
WLI:WELLCE( DEAL, 
WIL. WELLE (WEITEeL£.NEWLInNe) j 
wl1l.WriteLine (msg); 
ا‎ 
private string read () 
| 
using (StreamReader s1 = Fl1le.OpenText ("test.txt") ) 
ETFIRNGT TNEUE Z2 ELL), 
ELL MG FF 
while ((input = sr.ReadLine()) != null) 
{ 
Console.WriteLine (input); 
MSG FZ IROUE, 
1 


EELUEHN MSG; 


VB.NET 


Private Sub write (ByVal msg As String) 
Using wl As StreamWriter = Fl1le.CreateText ("test.txt") 
Wwl1.Write ("Start") 
Wwl1.Write (writer.NewLine) 
wl1l.WriteLine (msg) 
End. USIng 
EHC: SUB 
Private Function read() As String 


Using s1 As StreamReader = Fl1lle.OpenText ("test.txt") 
DIM inpuUtlE A6 SLCEING = Nothing 
Dim MSG AS GSIEEING = MT 
While (input = sr.ReadLine()) IsNot Nothing 
Console.WriteLine (input) 
MEG FS. LHD 
End While 


ReELUETH MSG 
ENO USING 


End FUNCTION 
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ناتج عملية الكتابة في الملف: 


File Edit Format View Help 


Ahmed Gamal khal1fah 


وناتج عملية القراءة على ال: ٣-01۸58016‏ 


E file CY Users Ahmed/Documents/ Visual Stuc 


Start 
Ahmed Gamal Khalifah 


ناتج الوتغیر النصسی سیکون بدوںن علامۂ السطر الجدید والذی سینتجح عن الدالہ 


StringWriter, StringReader 4.8‏ 
كما ذكرنا سابقاً لا يوجد اي فارق عما سبق › فقط الناتج يعود في ٣9‏ ٣غ5‏ وهو ما يمکٽڪ 
من عملية بالشكل التالي مثلاً: 


SCENE ET SEO LET € SCIUEITET. GETS LIINGBULIOEE O 
SEDULLIET.RENOVEO;, TOF; 
stbullder. Insert (0, "Ahmed Gamal"); 


Dim stbuilder As StringBuilder = strWriter.GetStringBullder () 
stbulillder. Remove (O0, 10) 
stbuillder. Insert (O0, "Ahmed Gamal") 
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الباب الثالث عشر الادخال و الاخراد فى ال أع١.‏ 


BinaryWriter, BinaryReader .5.8 


تمكنك من الكتابة والقراءة والتخزين في ملفات 0١3۲۷‏ مشتقة من الفئة 
اecل‏ 0 Syste".‏ وتحتوي على أغلب الدوال الموجودة في الاربع فثات السابقة. اضافة إلى 
الدالة () ۸٥403××××‏ حسب نوع المحتويات » هذا المتال للقراءة والكتابة باستخدام هذه الفئة: 


FLLEINEO £ = hHeW FILELINEO(TBEINAEV:QOELE TT), 
using (BinaryWriter bwriter = new BinaryWriter (f.OpenWrite ())) 
ا‎ 

double dbl = 1234.671; 

lonNT Lng =3 SA4S67000; 

n e E a O 

// Write different data. 

DWELLEEF.WELEE (QAbL) 

bwriter.Write (lng); 

bDWELLEE.WEItEeE(SEE)} 


1 


// ReadinéG Using Réadxx; 
using (BinaryReader breader = new BinaryReader (f.OpenRead() ) ) 


{ 


Console.WriteLlLine (breader.ReadDouble ()); 

Console.WritelLine (breader.ReadInt64()); // == long as i think , i am not 
sure. 

Console.WriteLlLine (breader.ReadString ()); 


} 
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VB.NET 


Dim f As New Flilelnfo("Binary.dat"”) 

Using bwriter As New BinaryWriter (f.OpenWrite () ) 
Dim dbl As Double = 1234.617 
Dim lng As Long = 34567000 
VIM SEC AS SCLIN E FA, E, O 


' WEIL QifEernt dala. 
bwriter.Write (dbl) 
bwriter.Write (lng) 
DWEILEF.WEILE(STE) 

Eid USING 


' Reading using ReadXxXX; 

Using breader As New BinaryReader (f.OpenRead () ) 
Console.WriteLlLine (breader. ReadDouble () ) 
Console.WriteLlLine (breader.ReadInt 64 () ) 

' == long as 1 think , 1 am not sure. 
Console.WriteLlLine (breader.ReadString () ) 
End Using 


FileSystemWatcher 9‏ 
تعتبر هذه الفئة مفيدة جداً في حالة رغبتنا في مراقبة سلوك ملف معين ومعرفة اي تغيير 
يطرأ عليها من التغييرات الموجودة في ال "۸1۳/€ System. 10.Not1 y٣ 11۴5S‏ والذي 


يراقب اي من التغييرات التالية: 


publl1c enum NotifyFl1lters 
| 


ALIELbuUEGS, -CEeallonTIimê, 
DirectoryName, FlleName, 
LastAccess, LastWrite, 
SECUEILY, SIG, 
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VB.NET 


PuUGDILIIG Enüûm NOlLEVELILITEES 
Attributes 
CreatlonTime 
DirectoryName 


F1leName 
LastAccess 
LastWrite 
SECUEILEY 
Sl1ze 

ENT. EDHUMm 


طبعا بما اننا نتحدث عن كأ٣‏ 6۷6 وتغييرات » سنحتاج فورا لتعريف دوال يتم تنفيذها مرتبطة 
بالاحداث » اي دالة تستخدم لقراءة احداث مثل التعديل والتغيير وخلافه لا بد ان تكون على شكل 


delegate‏ التالي: 


vVOl1d MyNotificatlonHandler (object source, FileSystemEventArgs e) 


{ 


} 


VB.NET 


Private Sub MyNotificationHandler (ByVal source As Object, ByVal e As 
FileSystemEventArgs) 


End Sub 


آما حدث تغيير الاسم ا بد آن يتبع للشكل التالي: 


vVOi1d MyNotificationHandler (object source, RenamedEventArgs e) 


{ 


Private Sub MyNotificationHandler (ByVal source As Object, ByVal e As 
RenamedEventArgs) 


Eni Sub 
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اللآن سنقوم بتعريف برنامج عادي › يقوم بمراقبة حالة الملفات » طبعا ولإننا نرغب فى ان 
نرى نتائج البرنامج فلا بد ان نجعل البرنامج يعمل حتى يضغط المستخدم حرف ¶ متلا » لو كنا 
فی ۴0۲۳5 sس0ل"Wiİ‏ كان بامكاننا المراقبة مباشرة طبعا » فى مثالنا هذا ستراقب كافة الملفات 


النصية فى القرص الصلب ٥C: ١‏ لحدثى الاضافة والحذف: 


FlileSystemWatcher watcher = new FlleSystemWatcher () ; 

7/7 mOnILtEOE ELLES ot 

WALCHNEE.PALD = OO 

// monitor files when 

watcher.NotifyFl1ilter = NotifyFilters.LastAccess | NotlfyFllters.LastWrite | 
NotifyF1ilters.FlileName | NotifyFilters.DirectoryName; 


// watch files of type 

WaLCHEELELILLoL = TEE), 

7 WabEel GONE 

watcher.Created += new FileSystemEventHandler (OnChanged) ; 
watcher.Deleted += new FileSystemEventHandler (OnChanged) ; 


watcher.EnableRailisingEvents = true; 
CONSOLE: WEILELInNE (TBESSS GO LO GULL ADs 
while (Console.Read() != 'q') ; 


VB.NET 


Dim watcher As New FlleSystemWatcher () 

' MORNLEOF, FLLleS al: 

WSLCREE.PSLh 3 OT 

' monitor flles when 

watcher.NotifyFilter = NotifyFilters.LastAccess Or NotifyF1lters.LastWrite Or 
NotifyF1ilters.FlileName Or NotifyF1lters.DirectoryName 


' watch fl1les of type 

WaALCHEEFLITeoELT = UK 

' watch events: 

AddHandler watcher.Created, AddressOf OnChanged 
AddHandler watcher.Deleted, AddressOf OnChanged 


watcher.EnableRaisingEvents = True 
CORNSOL6.WELILeLIihNe (TBPEGSS. TG" LO OU1L -ABD=") 
While Console.Read() <> "q"c 


EHCQO WELL 
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كما لاحظت» عندما يحدث آي حدث فإننا نقوم باستدعاء الدالة 0۸٣٤۳۸3198١‏ . يمكن تخصيص 
دالة لكل حدث أو كما تحب لكن هذا فقط متال » يمكننا كتابة الدائة 0۸٣٤۳۸۱31۸۱9٥٩‏ بالشكل 


التالي متلا - عرض الملف والتغيير ووقت التغيير: 


static vold OnChanged (object source, FileSystemEventArgs e) 


{ 


Console.WritelLine ("File Changed, File Path: {0} , Change: {1}, DateTime: 
{2}", e.FullPath, e.ChangeType, DateTime.Now.ToString ()); 


ا 


VB.NET 


Private Shared Sub OnChanged (ByVal source As Object, ByVal e As 
FlleSystemEventArgs) 

Console.WriteLlLine ("Flle Changed, File Path: {0} , Change: {1}, DateTime: 
{2}", e.FullPath, e.ChangeType, DateTime.Now.ToString () ) 
ENC Sub 


والآن جرب البرنامج... 
الصورة التالية نتاج متوقع لحذف ملف من سواقة السي واعادته مرة أخرى ( من سواقة السى 


افر ) : 


BE file fC Users Ahmed/ Documents Vsual Studio 2003/Projects/ CansoleApplication7/ConsoleApplic... 


Press "gq" to quit app- 

File Changed, File Path: cE:»YServer.txt „, Change: Deleted, DateTine: 6+520 2:. 
HEE 

File Changed, File Path: c:»YServer.txt „ Change: Created, DateTine: 6+520 2: 


38:44 PHM 


الصورة 13. 2. نتائج تنفين الشفرة. 


Object Serialization .10 


.Object Serializati0¬ J| و عن مفو‎ 
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Serialization JI التعامل و2‎ 

عمل الفئة الخاصة بك لتكون عأ( هzااهأامS:‏ 

كل ما في الأمر أن تضع الكلمة [٥1ط121122٤ا٥؟]‏ اعلى اسم الفئة بالشكل التالي مثلا: 
التخيير : 


[Serializable |] 
PUDDLES CLARE SET 


<Serializable()> _ 
Public Class serlal 


End CLIaSS 


ماذا استفيد من كون الفئة الخاصة بى ع|0هzaااiaء Se‏ 


معظم الفئات الاساسية تتيح لك كونها ه٥0هاةأا56‏ للاستفادة من بعض الخصائص مثل 


الكتابة المباشرة إلى ملفات القرص الصلب كما تعلمنا سابقا » هذا المثال: 


serial sample = new serial (); 
USING. (OCCO LOL = QEY CLL MOORE, 
F'1leMode.Create, FlleAccess.Write, FlileShare.None) ) 
{ 

binFormat.Serlalize (fwl, sample); 


} 


Dim sample As New serial () 
Using fsl1l As Stream = New FlleStream("data.txt", FlleMode.Create, 
FLIL6ACCE6SS.WEITEe;, ‘FileSharée. No6) 
binFormat.Serialize (fwl, sample) 
End Using 


318 


الباب الثالث عشر الادخال و الاخراد فى ال أع١.‏ 


ماذا أيضا + 


هناك عدد كبير من الكائنات التي قد لا تقبل التعامل مع الفتات الخاصة بك إلا لو كانت 
.ASP.netJı تiaèص» ya View State JI legis «Serializable‏ 
هناك العديد من الطرق لعمل 52١۲13117221101‏ لكائناتك › منها: 


BinaryF"ormatter 


عليك آو لا اضافة مرجع إلى المجمع 
System.Runtime.Serlallizatlon.Formatters.B1inary‏ 


EIN VEFOMAL LET BDINEOEMALTEOE 2 OER DINO TOMO LEE 
using (Stream fsl1l = new FileStream("data.txt",Fl1leMode.Create,FlleAccess.Write, 
Fl1leShare.None) ) 


BDINEOEMAE:SEETIALIZE(ESL, MYOBTECE 


} 


VB.NET 


Dim binFormatter As New BinaryFormatter () 
Using fsl1l As Stream = New FlleStream("data.txt", FlleMode.Create, 
Fl1leAccess.Write, FlileShare.None) 
DIDNEOEMSCLSEEIALLZE(ESL, MYO ECE) 
Erd USING 


:Deserializi¬g Jal و‎ 


BinaryFormatter binFormatter = new BinaryFormatter () ; 
using (Stream fsl1l = File.OpenRead("data.txt™") ) 
ا‎ 

newobjJect car = 

(ob jectclass) binFormatler.Deserlalize (f51); 


VB.NET 


Dim binFormatter As New BinaryFormatter () 
Using fsl1 As Stream = File.OpenRead("data.txt") 
Dim car As newobject = DirectCast (binFormatter.Deserlalize(fs1), 
objJectclass) 
End. USING 
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XmlSerilializer 2.10‏ 
يعد ال ۷× النوع الأحدث في عالم تخزين البياتات تظرا لإنه يجمع بين امكانيات قواعد 
البيانات من حيث البحث وخلافه ويجمع بين سهولة التعامل معها كما في الملفات النصية» الصيغة 


العامة لأآي ملف ۷× بالشكل التالي: 


<rOOtE> 
<Member> 


<Name>AHmed< /Name> 
<Age>22</Age> 
</Member> 
</Jroot> 


أحمد و 22 تıمya Name |nî Element‏ و Attribute gnu Age‏ . 
لمعرفة المزيد حول ×٧۷]‏ يمكتٽنك البدء من هنا 


رابط گي 
http://www.w3schools.com/xml/xml_whatis.asp‏ 
العناصر الأساسية الموجودة ف”ى System.xXxml.Seriali1Zali01‏ 


العنصر الوصف 

tr1buteAttributeاX×"A‏ يتم تحويل هذا العنصر على انهعÖuiڻAttri‏ 

٤|e ٣٤ يتم تحویل هذا العنصر على انه۸4‎ ×XM1ElementAttri bute 
OO Eren XmMIRoOOLAttribute 


XML TextJ lalıgzت‎ pö Xml lexlLAlttribute 


الجدو ل 13. 10. بعض دوال مجاJ‏ JlٺlewÎ«ء .System.Xml.Serialization‏ 
فمثلاً لتحويل هذه الفنة إلى ×٧1‏ عن طريق عملية ١20ا‏ أ٣هS:‏ 


C1483 Members 


| 


[xmlAttribute |] 
string Name; 
[AMLATEELBDULE Î 
int Age; 
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الباب الثالث عشر الادخال و الاخراد فى ال أع.١.‏ 


VB.NET 


Class Members 
<XmlAttribute()> _ 
Private Name As String 


<XmlAttribute (J> _ 
Private Age As Integer 


EHGA CIS 
والآن بعد اضافة اي نوع من البيانات على هذه الفئة ومن ثم عمل ١23†10أ 5€ ستجد الناتج على‎ 
شكل ملف ۷× السايق.‎ 
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بروجۂہ النواعذ کی 


.hNel 2008 


Windows Forms 


الباب الرابع عشر بروجة النوافذ فى أع١.‏ 2008 


1. وقدوۃ 


تعتبر الكلمة أهكلاألا التي اصبحت متلازمة مع اغلب لغات البرمجة هي الحل السحري 
لمشاكل تصميم واجهات مناسبة للمستخدم » فى عصر ما قبل لغات البرمجة ۷1S1‏ كنت 
ستكون مجبر على رسم واجهاتك بالكود » مع ما يعنيه ذلك من صعوبة وتأخير في وقت التنفين 
اضافة إلى انخفاض مستوى التصميم. 

في ۸€1. جاءت المكتبة 0"5 Nn d05.‏ en.N1اSyst‏ لتقدم لك كل ما تحتاج إليه 
تضم واجهة ماساة > فاك أبضا محموهة دوال آ۵۴ تعرت باس ا60 تنك من ربادة 
كفاءتك الرسومية من خلال مجموعة من الأوامر المخصصة للرسومات 20 أخيرا ومع اه١.‏ 
0 جاءت لنا مايكروسوفت بتقنية Windows Presentation F0°UNd2†¡01‏ او ما تعرف اختصارا 


باسم ۷۲۴ لتزيد من كفاءة الرسوميات ضمن تطبيقات البرمجة لحد مرتفع جدا. 


دوكلlı‎ Windows Forms crliı .2 


قبل أن نبدأ باستخدام المعالجات الجاهزة التى وفرتها لنا مايكروسوفت ضمن أكةلاءا۷ 
٥0ا‏ يفضل ان نقوم بمحاولة بناء نموذج بعيدا عنها حتى نستطيع فهم كيفية عمل ئ س0ل¡ 
Forms‏ . 

لذا قم بفتح المفكرة N083٩‏ » قم بانشاء ملف متلا باسم °8 .0۲1"8 N1N d0 WSF‏ ومن 


تم ستيداً فی كتابة الكود. 


أو لا سنقوم بتعريف فئة مشتقة من الفئة ۴0۲۳5 بالشكل التالى متلا : 


class SimpleWindow : Form 


1 
1 
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الباب الرابع عشر بروجة النوافذ فى اع١.‏ 2008 


VB.NET 


Class SimpleWindow 


Inherlıts Form 
End Class 


والآن سنقوم فى حدث N٧۷3١‏ باستدعاء نسخة منه» لا تنسى اضافة مكتبات 


System .WNiNndowSs. Forms‏ لذا سیکون الکود بالکامل بالشكل التالي: 


using System; 
using System.Windows.Forms; 
namespace WindowsForms 
{ 
N E e 
{ 
SLCATTLCG TOL Main (0) 
{ 
Application. Run (new SimpleWindow ()); 
} 
} 
} 
GIASS SIMOLEWILEAGOW =: FOE 
{ 
} 


VB.NET 


IMEOETLS SVYSEeM 
ImMOOETS SVSTEM.WINOOWS.EFOEMS 
Namespace WindowsF'orms 


LliaSS PEoGLaN 
Private Shared Sub Main () 
Application. Run (New SimpleWindow () ) 
ENG Sub 
Enid. Class 


End Namespace 
Class SimpleWindow 


THMHSFLLS EOE 


End Class 


الآن فقط كل ما عيك هو فتح الشل K۳ ١‏ الخاص بك › وكتابة أمر مثل التالي: 


Shell 


CSO E TCE NN SS CES 
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اللاب الرابع عشر بروجةۂ النوافذ فى أع٥1.‏ 2008 


طبعا بعد الذهاب لمسار البرنامج»› و يعد تعريف C5٤٣٤‏ لتكون جاهزة للاستخدام فی آي مکان» سیکون 


الناتج شينا مثل هذا: 


الصورة 14. 1. بناء نافذة بسيطة. 


والآن بامكاننا التحكم في بعض الخصائص » مثل الطول والعرض . الشفافية .... الخ من الخصائص 


أو حتى تنفيذ الأوامر التي يمكن الوصول إليها من خلال 8۲0۷586۲ زط0 بالشكل التالى متلا: 


ê dectivaeAdIC hI System. Wirda. Forms. Form] 
o Adi ingdF orn dyer. Window Forena- Foam] 
j dji ForrmSerllbarslbêal] 
yi CernterT oP arent] 
j CenberT etree] 
û Chose] 
„j CreeteHan dle] 
j Defined Proc (ref System Windows. Forms. Hersage] 
% Dispeselbool) 
- 10 Form 


5 Ca Derived Types 
+ WF" Syetem MAndowi Form FarmiEordetyle 
7 AF System Windows Forms Foren losed Evert gq 
E i Stem Windows Forma FomClesedfvernilHandler 
5-j Sytem Windows. Forms Foam losingEventÃrgs 
7 i Sem Windowg Forms E eren let gË ventHarıdler 
ê AF Stem Windows.FormaF orn collection 
É a" Syrtem Window. Forma FonnStartF osition 
7 # Siem Window Form orn heed late 


j? GeEScaledBoundsfSystem.Drsaing.Rectangle, Sytem DrawangSizeF, System 
o Layo lMdi Syren. Windows. Forres MAILE] 
j Ontctrratedi System EventArgs) 
„* Om BackgroundlimageChangedi Sytem .EcertéArgs) 
j # OnfackatourdimagêLyout Charged Sy errErentArgî] 
j9 OrrClosedfSyrtem.Evertûrgs] 
٣# n irae ESE 


Represents a mndow or dialog box that makes up an applicaîlan's user 
iiifatê. 


.Object Exp|Or€F Jı ةiفان‎ .1 .14 الصورة‎ 


لذا نجد ان بامكاننا مثلا تغيير الطول والعرض وتوسيطه › لذا سيكون كود الفورم بالشكل التالي: 
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اللاب الرابع عشر بروجة النوافذ فى أع١.‏ 2008 


CLa9S SIMGLEFoOEM ¢ FoEmM 


pBUDLLE SIMOLEFOEM(LRT HheloNt, ANE WIA, BOOL center) 


{ 


Width = width; 
Helght = height; 
LE {(CENLEE) LENTEFTOSCEEEN Û0} 


VB.NET 


Class SimpleForm 
INiiNGFILS FOM 
Public Sub New (ByVal height As Integer, ByVal width As Integer, ByVal 
center As Boolean) 
Width = width 
Helght = height 
If center = True Then 
Center ToScreen () 
EN LE 
EN OuUbB 
End Class 


لكن لا تنس أنك في ١لا۸‏ سوف تقوم بتمرير بارميترات إلى الفئة » بالشكل التالى متلا: 


Static VO1d Malin () 


{ 
ADpPLILCEGAEIOR.RUN (FEW MEINWILRNGAOW{20U, SUO, TEU); 


} 


VB.NET 


Private Shared Sub Main () 
Application. Run (New MainWindow (200, 300, [True|)) 
End Sub 


لا گنس طبعا انه نامگاتك الحصول.غلى هذه القيم من خلال 4٤95‏ كما تعلمتا سابقا ... 


اضافةۂ آأدوات بالکود 
تعلمنا رسم الفورم بالكود» جاء الدور الآن على وضع الأدوات المختلفة على الفورم › يتم ذلك 


بالواقع من خلال الأوامر التالية: 
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الباب الرابع عشر بروجة النوافذ فى أع١.‏ 2008 


الدالة أو الخاصية الو صف 


عدد الادوات » فى الواقع هذه الخاصية مفيدة ا عند محاولات المرور 
على الآدوات 
أما الآدوات التي يمكنك اضافتها › فجميعها موجود تحت lالفiئة System.W1indOWS.F0۲MS‏ 
حيث تجد كل الادوات التي تعودت على رؤيتها... 
2 اضصافۂ الفوانم 


سنحاول الوصول للشكل التالي حيث يمكن الخروج بالضغط على زر أا×۴ في القائمة: 


REE) 


الصورة 14. 2. اضافة أداة ال ل16۷[ للنافذة بالكود. 


الكود سيكون بيطا › ستقوم بتعريف م|٣†5Sل Me‏ للقائمة ومن ثم Me Nuا† e۳‏ مooStriا‏ لعتاصر 


القاتمة: 


private System.Windows.Forms.MenuStrip menuStripl; 


private System.Windows.Forms.ToolStripMenultem fl1leToolStripMenultem; 
private System.Windows.Forms.ToolStripMenultem exitToolStripMenultem; 
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الباب الرابع عشر بروجة النوافذ فى أعہ. 2008 


VB.NET 


Private menuStripl As System.Windows.Forms.MenuStrip 


Private fileToolStripMenultem As System.Windows.Forms.ToolStripMenuItem 
Private exlitToolStripMenultem As System.Windows.Forms.ToolStripMenuItem 


الخطوة الثانية هي عمل دالة في ال 0۲أ٣٤ل٣أئon‏ وليكن اسمها «Build ۴FO0r]mM‏ من وضع 


الاكواد مباشرة فى ١ل .C0 S۲٤0۲‏ 


CDUDLIG SImMoléFoEM() 

ا 
Text="Example. Simple Form";‏ 
EULLUEOEMC;‏ 


Public Sub New () 
Text = "Example. Simple Form" 
BULLGCEFOEMO 

SAC. SUS 


اللآن سنقوم ببرمجة هذه الدالة» ستنقوم بوضع اسماء للعناصر ونضيفها باستخدام Add‏ للقاتمة 


flleToolStripMenultem. Text = "&Flle"; 
menuStripl. Items. Add (mnuF'ile); 
exitToolStripMenultem. Text = "E&xit"; 
menuStripl1l.DropDownltems. Add (mnuFlileExit); 


VB.NET 


fl1leToolStripMenultem. Text = "File" 
menuStripl. Items. Add (mnurF'i1le) 
EeEx1ltToolStripMenultem: Text = "Exit" 
menuStripl1.DropDownItems. Add (mnuF1lleExit) 


exitToolStripMenultem.Cllick += new 
System.EventHandler (this.exitToolStripMenultem_Click); 
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الباب الرابع عشر بروجة النوافذ فى أعہ. 2008 


VB.NET ا‎ 


AddHandler exitToolStripMenultem.Click, AddressOf exitToolStripMenultem_Click 


آخيرا ستعتمد القائمة الرئيسية لتكون القائمة الخاصة بال ۳0۲۳ بالشكل التالى يعد اضافتها 


Controls.Add(this.mnuMainMenu) ; 
MalnMenuSErip. = ThLS.mMmenuüuStrFipL} 


VB.NET 


Controls.Add (Me.mnuMainMenu) 
MainMenuStrip = Me.menuStripl 


الآن سوف نقوم بكتابة الحدث الخاص بالضغط على زراا×ع: 


private void exitToolStripMenultem_Click (object sender, EventArgs e) 


BELOIT] 


} 


VB.NET 


Private Sub exitToolStripMenultem_Click (ByVal sender As Object, ByVal e As 
EventArgs) 

ABBLLCALCLON: [ESTILO 
ENG... SUB 


بهذا يكون الكود الاجمالي بالشكل التالي 
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CLa9S SIMGLEFoOEM % Form 

private System.Windows.Forms.MenuStrip menuStripl; 

private System.Windows.Forms.ToolStripMenultem fl1leToolStripMenultem; 

private System.Windows.Forms.ToolStripMenultem exitToolStripMenultem; 

GUDLLEG SimoleFoEMN 0 
Text = "Example. Simple Form"; 
ELULLGEOEMO F 

} 

prIiIvaltëé TO01d BülldForm () { 
flleToolStripMenultem. Text = "File"; 
MENUSEELDLALITEMS Add (MUFF LLE), 
exlitToolStripMenultem. Text = "Exit"; 
menuStripl.DropDownltems. Add (mnuFl1leExit); 
exitToolStripMenultem.Cllick += new 

System.EventHandler (this.exitToolStripMenultem_Click); 

Controls.Add (this.mnuMailinMenu) ; 
MaAlnNMEenuSEEIpD = TRIS mMenuSTEEIpL; 

} 

private void exitToolStripMenultem_ Click (object sender, EventArgs 
AODLILCOLIONMLESIT O, 

} 


VB.NET 


Class SimplLleForm 
INHeFIES FoEM 
Private menuStripl As System.Windows.Forms.MenuStrip 
Private flileToolStripMenultem As System.Windows.Forms.ToolStripMenultem 
Private exitToolStripMenultem As System.Windows.Forms.ToolStripMenuIlItem 
Public Sub New () 
Text = "Example. Simple Form" 
BULLQForm () 
EL Sub 
PEIVaALeE Sub BUILLGFOEM) 
flleToolStripMenultem. Text = "&F1le"™ 
menuStripl. Items. Add (mnurF'i1le) 
exl1itToolStripMenultem. Text = "E&xlt" 
menuStripl1.DropDownItems. Add (mnuF1lleExit) 
AddHandler exl1itToolStripMenultem.Click, AddressOf 
exitToolStripMenultem_ Click 
Controls.Add (Me.mnuMainMenu) 
MalnMenuStrip = Me.menuStripl 
ENC Sub 
Private Sub exitToolStripMenultem_Click (ByVal sender As Object, ByVal 
EventArgs) 
AGDLLCAELON LEXIE 
End Sub 
EHC. ClaSS 
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بروجة النوافذ فى أع٣1.‏ 2008 


Visual Studio .net قيرۆþ انشاء فورم عن‎ .3 


Windows Forms رlıتةخlo‎ p۾ã‎ File-New aمaئlة‎ jم‎ «Visual Studio 2008 فقط افتح‎ 


: Application 
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الصورة 14. 3. اضافة النوافن بالاستعانة ببيئة التطوير 2008 


. Visual Studio 


الآن من القائمة الجانبية ×80 ۲٥0|‏ اختر مأ٣MenuSt‏ . ستجد الشکل التالی: 
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File Edt View Project Build ÛDebug Data Tools Test Analyze Window Help 


: ااا سسا سگ سسس ا و ا کا کے لا‎ >| IP 
ا ا اک اا‎ ok ا متشا 2 ا د‎ E | لا +8 8 ر‎ HE ا‎ | EAE IE 


[FI HelpProvider 
RIF HScrollBar 

Label | Î] Tunes Hae | 

A Linklabel 
# listêÊox 
4 ListView 


MessageQuct‏ و 
E] MonthCalendi Version 2.0.0.0 from Microsoft Corporation‏ 


MenuStnp 

Î Notifyicon | .NET Component 

E DRL Displays application commands and options grouped‏ ا 
ا ا OpenFileDialo‏ ا 

FE PagesetupDialîr 
[_] Panel 

O] PerforrmnanceCounter 
laî] PictureBox 

LA PrintDialog 


الصورة 14. 4. اضافة القوائم بالاستعانة ببيئة التطوير 2008 .Visual SUd|0‏ 


الآن وڪما فعلت قم بالتفضر ع كما تريد وتصميم القائمة» عند الضخط مرتين على العنصر Exit‏ 
ستجك الأمر جاهزا للكتانة مالتكل التال ` 
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FE Mî re RM FÎ HK Cg Gî ek TÎ ake Wasa He 

= ~ê dM A 2 j = . = عتا م‎ = ee CFU = | Bi Fi AFAR EA, 

Rh SHEE SS SIGE Sa 

1 ج تا کا د او کو چو > E‏ چ Teka‏ 


1 1 
Ferm ln" Frrrrd Fomesrarzn 1 ÊEcrrmrd xn mal" 
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الصورة 14. 5. توليد الكود اوتوماتيكيا بواسطة بيئة التطوير. 


اللآن اكتب الكود» ومن ثم اضخط على ۳5 وجرب. 
والآن ألا تتفق معي أن الوضع أصبح آسهل كثيرا.... 
اللآن » سنتعرف على محتويات الواجهة الرئيسية. 


فى مرحلة سابقة من الدروس تعرفنا على بعض النقاط فى واجهة 0أ uںاS؟‏ أجuءأ۷»‏ الآن ستواصل 


التعرف على النقاط الخاصة بالواجهة الرسومية. 
ToolBox‏ 


يحتوي على الأدوات الرئيسية التي نحتاج اليها » لو لم يكن ظاهرا يمكننا اظهاره من - ۷i۷‏ 
.ToolBOX‏ 
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هم الادوات التي نحتاج إليها موجودة تحت التبویب ۴0۲۳5 sس0wهہWi‏ اا » مع ذلك ما زال 
بامكاننا اضافة تبويب جديد واضافة آدوات آخری إليه » عن طريق ۲3۲ ۸۵٩‏ ومن ث۾م Choose Item‏ 


واختيار العنصر الذي ترغب فيه: 


ایا وہ ١‏ الجدہ؟ ولط ٠‏ سے اج“ 


Fle Ed View Pel Held Ekg Des Teh TE Anak as Hip 


ل٠‎ ٠ تج ا ت‎ | e e ل مد د وت | ل‎ | IE ES EE 
CIE Ela GC iM Ti E 1 n E E -HE r E 
Telbe J FH Dit aga | OEgect Browar | Foamic" | Ferma Deugnar gs  Fermls [eni]? > ا چو‎ e» a e د‎ FF 
| omar Corti ch س ڪھ ڇڪ چ ڪڪ ڪڪ‎ al ahen ape’ Û pêger] 
= rf Lairerrs Î mplel aim 
= llkerarn r Tanlkars | Ha) Freep 
” ala | ıi j Felemureran 
= reppin [ TT] Fel 1F 
=. Friars | AmTrHazuarr Aare, Mame Eesti E Farm Deiigeae.Ei 
ول‎ 7] Hr çera eager iam irk LÎ ekleri Siem ê MEAÛ) Rek kmna a] Fam] rea 
: WEI latracperakbNiy Hhcacft Hln Tah Miramar Taal. heka rut i Fregrtêi 
ا ا‎ Hirefire. Tosh Hkrcsaaft Hern lol. Heba Mu 
Artur a e hrm ore 3 لوا‎ 
ف6قففكففة‎ ADD Erect f rraalEer Crorrpa. Mircette . Shekel Ain 
ADOT ST krea real Eicer Tertpa. hci ta Er _. kal kit 
atl laren re و‎ | a ga ق‎ ht ختزط ليطا .ية‎ 
imla : dlrs, pari Inpaı جز افاجلا , وا ا ا‎ 
طحو ابا "طبارم 1 اة‎ -٠ انها ابوا‎ ٠٠ ززط انالت‎ 
pa iH I Lleol, peri pre Ela -_Riligahe | helal Bii - Dnapeer zı KH 


FERN carrera em rii Mamet cT 


e ر‎ | 
Laragıege _rFF Let rra mlr Eiger |__| eee] 3 
mir: 3ABD e 
id Fale 
gi ierk F ale 
Camere rar temrkhed 
Caglrg irh bre galiT Tank 
E a 
leapliran [rana] 
3 FH lespgleand rra. ICarrtha] 
Eki Terr 
۳ : rap lararml rra, 
F rie E mF a Feira" 
- gar au a los FHirpE em [o drupley Har, Hm tarr 
ا‎ 8 


الصورة 14. 6. اضافة عتاصر لقائمة الأدوات ×00|80]. 


Tabs Group 


يحتوي على جميع الملفات والمصادر التي قمت يفتحهاء حيث يمكنك التنقل بيتها. 


2 


یمکنڪ الضغط على ١|٣۵٥‏ للتبديل بين الشاشات المفتوحة بالشكل التالى مثلا : 
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EB WindowsFormsApplicationl1l1_ TemporaryKey.pfx 


Active Tool Windows Active Files 
î Solution Explorer - Window... (Gl WindowsFormsApplication... 
e Properties EE] Form2.cs [Design] 


E} Class View c#) Program.cs 

Û Output EA] Form2.cs 

ê Error List _} WindowsFormsApplication... 
lg Server Explorer Start Pagê 

E Object Browser‏ b0xا0‏ ا خد 


CAN WindowsFormsApplicationl1\WindowsFormsApplicationl1_TemporaryKey.pfx 


الصورة 4. 8. نافذة اختيار النوافن. 


Properties Windows 


exit ToolStripMenultem System. Windows,.Forn ” 


AFI EEE 


الصورة 14. 9. نافذة الخصائص. 
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تجد فيها الخصاتص التي ترغب في تعديلها لآي عنصر يتم تحديده على الفورم » هذه الصورة 
توضح خصائص احد عناصر القائمهة. 


Solution Explorer 


Solution Explorer - Solution ‘SImpleFor,.,. w MH 3 


بے E‏ ا العا تھ اک 
Solution ‘SiımpleFaorm' (I project)‏ ا 
E: E SimpleForm‏ 
i: aA] Properties‏ 
E. a] References‏ 
EE] Forml.cs‏ 1= 
E Formi1.Designer.cs‏ ... 
Formil.resx‏ ك n‏ : 
Program.cs‏ | . 


الصورة 14. 10. نافذة متصفح المشاريع. 


یمکنکڪ من تصفح محتویات مشروعکڪ من نوافن ۴0۲۳۶ أو فثات 4556ا او حتى صور و 
Resources‏ . 


Class View 
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4 SEACH ات‎ 


1-E Project References 3 
I {} SimpleForrm 
۰ 1. Forrml 
و‎ 1-2 Base Types 
2... Form 
4... LontalnerLontrol 
1.ê Program 


11 


Soluti on Explorer & Class View |‏ ت 


الصورة 14. 11. نافذنة متصفح الكائنات. 

لاستعراض الفئثات الموجودة لديك و خصائصها ودوالها و خلافه. 

كيف يعمل ال 51110.۸8 أهلاءأل/ا في انشاء النماذج ؟ 

بنفس الطريقة التي تعلمناها بالكود» ستجد لديك من قائمة ١٤۲٥|م×ع٤‏ onاutام5‏ ثلاثة ملفات: 
Form1.cs -1‏ 


سيمكنك من التحكم في الفورم يدوياً عن طريق الوضع ]0€65|8١[‏ ايضاً تجد الأكواد التي قمت 
بكتابتها في هذا الملف » يقوم كتير من المبرمجين بالتبديل بين الوضعين بالتنقل من القاتمة 
العلوية › او الضغط مرتين على اي اداة لفتح الكود الخاص بها . يمكنك عمل ذلك بطريقة مثالية 
عن طريق الضغط على الفورم بزر الماوس الآيمن واختيار الوضع 000€ - ١عأكه0‏ أو حتى ككجاC‏ 


. Diagram 
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FoEMI.DêSsiGHer. Ce =2 


هنا تجد الأاكواد الخاصة بانشاء الأدوات والفورم › لو قمت بفتحه ستجد اكوادا شبيهة بتلك التى 


استخدمتاها فى الجزء الأول من هذا الدرس: 


cthis.exitToo1lStripHenulItem. Size = new System. Drawing. Size (152, 22)? 
this.exitToolStripHenulItem.: Text = "Exit"; 

this. eKiTtToolStripHenulItem. Click += new System. EventHandler (this. exitToo] 
ر‎ 

#f# Forml 

f 

rehis.AuroScealeDinmensions = new System. Drawing. Sizer (6F, 13F}; 
chis.AuroScaleHode = System. Windows . Forms .AurtoS5caleHode . Font: 

this. ClientSize = new System. Drawing. Size (375, 90}? 

this. Controls . Add (this .menuStripi) ; 

this. HMainMenuStrip = this .menuStripl: 

thiz2 . Hame = "rFcsrmi"™; 

thisS.Text ® "Example. Windows Forms"; 

chis .menuSrerip1l .ResüumeLayouüt (fa13eê) ; 

c<his .menuStrip1l . PerformLayout (i f 

this .ResumeLayout (false) +] 

this. PerformLavyvout () ; 


= Fendregion 


private System. Windows . Forms .MHenuStrip menuStrip1l; 
EFrivate System. Windows. FOEMS.ToolStripMHenultem fileloolStrEipHenultem:; 
private System. Windows . Forms. Too0lStripHenultem exitToolStripMenultem; 


الصورة 14. 12. متصفح الأكواد. 


Forml.rex -3 


يحتوي على المصادر المستخدمة و خلافه. 
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4. gجJl System. Windows. Forms claulll‏ 


4. 1. الفناثٰ الرئيسıۂ‏ lieصڊر System. Windows. Forms‏ 
الفورم هو العنصر الاساسي في هذه الفئة » وهو مشتق من الفئات التالية: 


System. Object 


العنصر الاساسى لكل كائنات أ©1. 


System.MarshalByRefOb ject 

لنتمكن من الوصول ١١۲ر‏ إلى الفورم 

System. ComponentModel. Component 
1Component yaصسalا‎ |¬era°€ لثالث مشتق من ال‎ 


System.Windows.Forms.Control 


ا 


System.Windows.Forms.ScCcrollableControl 


من اجل استخدام ال 5٤۲0۵118‏ » اي عنصر مشتق منها يمكن ان يتمتع بهذه الخاصية. 


System.Windows.F'orms.ContalinerControl 
أخری » اي عنصر مشتق منها یمکن ان يحتوي‎ C0۸۲٥ من اجل جعله يمکن ان يحتوي علی‎ 


SGVEL CEN. WLHOOWS «EOFS. FOE 
مارك والقضل شتا‎ 


ذڪرنا آن ال ۳٥۲۳‏ مشتق من الفئة "۳0۲۳ System .NindowS. ۴٥۲"5.‏ لذا فإن جمیع 


خصاتئص و دوال وأحداث هذه الفئة تنتقل له بالتبعية» وهى ما سنتعرف عليها الآن 
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الخاصبة 
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الو صف 


EC ELE UL EO 


ACI TCAD 


MEMOS LOU SADC OE NN 


CMC IEE E I 


CONE LOLEOS 
F'ormBorderStyle 
Menu 


Max1limı1 zeBoOx 


SoM INTI ISK AL 
CE TEL STEN OM 


MNE IE NEC 


تحديد الزر الذي يتم تنفين آوامره عند ضغخط 
المستخدم على ٤۸)٤۲‏ 

عندما يكون للفورم آبناء » يتم هذا لتحديد الإبن 
النشط 

لتحديد امكانية جعل هذا الفورم حاضن لفورمات 
آخرى 

تحديد الزر الذي يتم تنفيتن أوامره عندما يضخط 


المستخدم على زرح٤؟ع‏ 

تحدید هل للفورم ×60 C0٣٥‏ آم لا 

تحديد شكل حدود الفورم 

تحديد القائمة الرئيسيه للفورم 

عرض زر التكبير والتصغير أم لا » ستجد واحدة 
أخرى باسم ٧1١1۳7١‏ لعرض زر وضعه في 
الشريط السفلي 

تحديد العرض في الشريط السفلي للويندوز أم لا 
تحديد نقطة البداية للفورم عند ظهوره لأول مرة 


تحديد حاله الفورم والتي يتم اختیارها من ال 
FormWindowState ygawual3ı enumeration‏ 


الجدو ل 14. 1. بعض خصائص الفئثة ۲0۲۳ . 


ويحتوي ال ۲3101 €" e^‏ المسمى 101ا 0S1‏ Pاا0rmSta"‏ على العناصر التالية: 


iE‏ = س 
i LenierParenî‏ 
E L#ERESEFEER‏ 
E Manual‏ 
a Virdee DefauEounmds‏ 
f iano Defa ulilLocaiian‏ 
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: فيحتوي على‎ ۴ 0rmN1N0 Na ما € ا‎ 
+ ا‎ 
A Mammized 
i immed 


™  Porrual 


Form Aiتلl دوال‎ .3 .4 


الدائة الو صف 


Activate )(‏ لتنشيط الفورم 

() 10€ اغلاق الفورم 
CEE NOC ONESMY‏ وضع الفورم فى منتصف الشاشة 
LayoutMD 1 ()‏ تحديد نظام عرض الشاشات الآبناء في حالة و جودها 
S012109٩ )(‏ عرض الفورم بصورة 0310E‏ بحيث ا يمكن الرجوع لما خلفها 

إلا يعد اغلاقها 

الجدو ل 14. 2. بعض دوال الفثة ۲0۲۳ . 
4. 4. احداٹ الفئۂ ٣٣إد۴‏ 


الحدث الو صف 


Ac-ا172ا٥€ ينطلق هذا الحدث عندما يتم تنشيط الفورم سواء بأآمر‎ Activated 
9ا عندما يبدأ حدث الإغلاق‎ 
0ا عمندما ينتهي حدث الإغلاق‎ s۵ 
مندما يذهب التحكم إلى شيء آخر غير الفورم‎ Deacا1vatاe‎ 
3ا عندما يتم تحميل الفورم › ولكن ينطلق هذا الحدث قبل ظهور الفورم‎ 
على الشاشة أصلاً - لتجنب واحد من أكثر الأخطاء شيوعا-‎ 
عند تحديد واحد من الشاشات الأبناء في حالة وجودها‎ MD 1C1 Act 1ye 


الجدو ل 14. 3. بعض أحداث الفئة ۲0۲۳ . 


343 


الباب الرابع عشر 


بروجة النوافذ فى أع٣1.‏ 2008 


كما ذكرنا ايضاً سابقاً » فإن الفورم مشتق من الفئة 001۲015 › ولذا فهو يتمتع بكافة 


مميزاتها والتي سنستعرضها هنا. 
5 idllذA Controls‏ 
5. 1. خصائص idllذA Controls‏ 


الخاصية الوصف 
ES BackColor‏ 
۴-10۴ لون النص الداخلي 
Background 1mage‏ خلفية صورة 
ح٣۳0‏ الخط وحجمه ونوعه وخلافه 
٣0ل‏ نوع المؤشر الذي يظهر عند العبور فوق الأداة أو الفورم 
A0۴‏ للتعامل مع خاصية ال 00٤)‏ والتي تثبت مكان الادوات على الفورم 
مهما تغير حجم الفورم 
016ا حجم تلقائي للاداة حسب محتوياتها 
۶8 موضعح الاداة او الفورم من الحد العلوي للاب 
حأاعا موضع الاداة او الفورم من الحد الأيسر للأب 
B0۳‏ موضع الاداة او الفورم من الحد الأسفل للأب 
اR1‏ موضع الاداة او الفورم من الحد الآيمن للأب 
B05‏ الحدود 
ST ClientRectangle‏ 
yT‏ الطول 
width‏ 
21۹ تحديد امكانية التحكم بالأآداة او الفورم من عدمه 
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٥اV1s1b‏ الظهور والاختفاء 
Shift, Ctrl , Alt Jı Jia ModifierKeys Jı all> elya ModlflerKeys‏ 
N N GD ETS TE MouseButtons‏ 
1401٣۵28»‏ تحدد ترتيب العناصر للانتقال بينها بواسطة زر0٥ة!‏ 
09ا25" منع الوصول للعنصر من خلال زرطةآ 
0P1 ¥‏ درجة الشفافية ما بين 0 و 1 
اأ×ع] النص المعروض داخل الاداة 


C5‏ تمكنك من الوصول للاداوات الداخلية في حالة كان العنصر قادرا 


على استیعاب عتاصر داخله 
الحدو ل 14. 4. خصائص الفئة C01١ ٣]01‏ . 


controls Aذldll‎ ûادحأ‎ .2.5 


الحدث الوصف 


مع 1ا٤‏ الضخط بالماوس 
yS‏ ضخطتین بالماوس 
Mouse te٤‏ دخول الماوس إلی نطاق الاأداة 
Mouse‏ خرو ج الماوس من نطاق الاداة 
"use‏ ضغط زر الماوس لاسفل 
"0use٧9‏ رفع الاصبع عن ضغطة زر الماوس 


. معبور الماوس فوق نقطة‎ MouseMove, 
MIME MELE 


WheelJı yلe ضط‎ MouseWheel 


۷۹ع ضغط زر من الكيبورد 
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سحب اداة فوق الاداة الحالية 


الجدول 14. 5. أحداث الفئة 1 C01٣0‏ . 


System. Windows. Forms .Contro1l lgد|‎ .6 


ذڪر نا في الدرس السابق بإننا ستقوم باستعراض الأآدوات > آو ل نقطة عليڪ معرفتها هي آن ڪل 
الأدوات مشتقة من الفثة ۲015أC0۸‏ لذا فإن أي أداة ستتمتع بالخصائص والأآحداث التي قمنا 


بشرحها في الدرس السابق مباشرة. 


الآن ستستعرض يعض الأآدوات الرئيسية لدينا. 


Button .1 .6 


زر آمر عادي جدا » يحتوي على بعض الخصائص متل: 
¥1٥‏ اا1 ۳۲: تحديد مظهر زر الآمر. 


:TextAlign‏ مو ضع النص من زر الآمر. 
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CheckBox .2 .6 


Check Me 
Me Tao 
E] dft ame here 


زر الاختيار المتعدد › يمكننا اختيار عدة عناصر › يحتوي على خصائص اضافية مثل: 
:checkstate‏ حالة الاختیار. 


.)] هنی رف‎ ٠ ا کرت حمل عاض دا ( مل < غر مل‎ e 
RadioButton „3 .6© 


J only one 
“J can checked 


@ waaaaa 


ia new Panel 


i same panel +] 


مثل السابق ولكنه يسمح لك باختيار واحد» لو كنت تريد استخدامه لآأكثر من مرة ضع ڪل 


منهم فى أ۴٥٣3م‏ مختلف. 
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ListBox gq ComboBox .4 .6 


Select Me 


r Me 
If (Multi==True } Select Me Too 


Ahmed 
Maaharmrmed 
Ai 


قائمه للاختيار من ضمن خیارات › الاو لی في صف واحد والتانية حسب الحجم المطلوب. 


يحتوي على جميع الخصائص التي تعلمناها ف„ Items.Add Jia Collect1i1o01.LiSİ‏ و 


l1Lems. Remove 


TextBox .5 .6©‏ 
Ahmed Gamal‏ 
آداة نصية تسمح للمستخدم بالكتابة داخلها » بعض خصائصها الاضافية 
Read: 1¥‏ : جعلها للقراءة فقط. 
Password char‏ : الرمز الذي يظهر في حالة جعل مربع النص للادخال. 
line‏ 1ا Mu]‏ : السماح بجعلها متعددة الأسطر. 
th€enاMax‏ : الطول الاقصى للنص. 
ع٣ sBa‏ ا ا0اSc‏ : اشرطة التمرير. 


. التفاف النص بعد وصوله إلى حافة الأداة مثل برنامجح وورد مثلا‎ : N0۲59 


348 


الباب الرابع عشر بروجة النوافذ فى أع١.‏ 2008 


حيث انها مشتقة من lاlفئa lil «(System.Windows.Forms.ScrollableCoN TOL‏ 


سيكون بامكاننا اختيار وضع من ال ^u "€ ۲310١‏ المسمى .SC]01182 ۲S‏ 


تطبيقات سريعة على مريع النصوص 


- لجعل مربع النصوص ل يقبل سوى ارقام مثلا : 


private void TextBoxl_KeyPress (object sender, 
System.Windows.Forms.KeyPressEventArgs e) 
{ 
LF ((e.KeyChar < '0' | e.KeyChar > '9')) 
{ 


e.Handled = true; 


Private Sub TextBoxl_KeyPress (ByVal sender As Object, ByVal e As 
System.Windows.Forms.KeyPressEventArgs) Handles TextBoxl.KeyPress 
lf (e.KeyChar < "0"c Or e.KeyChar > "9"c) Then 
e.Handled = True 
End If 
ERR Sub 


- البحث عن كلمه داخل مريع النص ٠:‏ 


BIITOLES VOL BUELONLCLILCEIODIECT SENG oT, SVSLCOM.EDVENLATOS 8) 
{ 

اا ا وان اول لے من الى ااجاير 7 

int index; 

اة ية / 

string SearchWord = "Ahmed"; 


ICN IAL 


TEXTBOXL. FOCUS (JF 

التدانة فى فرفتاة اللىي المكاير قى الها مدان مان .ضع 

index = TextBoxl.Text. IndexOf (SearchWord) ; 

ربطولعا الكاها يداي قن التعاديك حخفانىس وباستحدام الكلها لجدية // 
TextBOXl.Sé6lEeECtlonStartL = Index;‏ 

TextBoxl.SelectionLength = SearchWord. Length; 


349 


اللاب الرابع عشر بروجۂ النوافذ فى أع1. 2008 


VB.NET 


EFIVALG UE BULEORL CLICK (BYVAL Sener 8 SYSTEM. ODT ECL, BYVAL E 
SYSTEM; EVENTALGS), ENC LES BULCTCONLSCLLCE 

ال ك ان اوك ھاس سيحتوي اال الوا عي 

Dim index As Integer 


ال کل و" 
Dim SearchWord As String = "Ahmed"‏ 


"EET SIU 
TeEXLEBOXL.TocCuS 0) 
الوا ا وقلا الل الام ار قى اوا بدا مال وا‎ 
1LOQdEXxX. = TEXIBOKL. TEKST. INOEXOT (SEaAEChAWOEGA) 
"` ويظط لها الكلهوا يداي من التحجادبة خجفانصس جاسا داع الكالهه لديك‎ 
TextBox1.SelectlionStart = index 
TextBox1.SelectlionLength = SearchWord. Length 
ENO SUB 


Label .6.6 


Panel g GroupoBox .7 .6 


ia) radioButtonî 
` J radioButtan# 


آدوات حاوية يمكن وضع آدوات أخریى بداخلها. 
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RichTextBox .8 .6© 


: Button 


الم ل 


زر أمر عادي جدآ ‏ يحتوي على بعض الخصائص متل | 


٠ ا۴: تحدید مظهر زر الامر‎ 5te 
. ا: موضع النص من زر الامر‎ A ہو‎ 


آداة نص تسمح لمحتوياتها ان تحتوي على تنسيقات مختلفة › الفارق بينها وبين ×150ا×8] هو 
الفارق بين «Wordpad , Notepad‏ 

تحتوي على الخصائص الاضافية التالية: 

0rd rap‏ لتحديد التفاف التنص. 

58 !: لتحديد عدد الآأسطر . 

ح٤ :Se1‏ لتحديد جزء من النص عن طريق نقطة بداية ونهاية › او نقطة بداية وطول. 
٣××»‏ 10اeceاSe:‏ لتحديد تنسيق خط للجزء المحدد › مثل اللون ٣10۸€°0010اSe]1lec.‏ 
5s‏ ل€اecاDe‏ : لتحدید عناوین الانترنت تلقائيا و جعلها قابلة للانتقال . 

كما يحتوي على الدوال الاضافية التالية: 

11٥ )(‏ 0a۳ا:‏ لفتح ملف نصي من مسار معين. 

:SaveF1le ()‏ لحفظ الملف في مكان معين. 


آمتلة سريعة 


- لقراءة محتويات اداة النص من ملف نصي ومن تم الحفظ في ملف آخر : 
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RichTextBoxStreamType.PlainText) ; 
RichTextBoxStreamType.PlainText) ; 


بروج النوافذ فى أع۸. 2008 


RICRTERLBOEI1.LOaQF LIE (OFC: AME LEL", 
RichTEéEKLBOKL:SavVEFIleE (OFC ARMS TET, 


VB.NET 


RiCHTEKTEOSL. LOAGELLE (TC: ANE. EET", 
RIGRTEKTLBOXI .SavVEF I lê (FC AHMET, 


ولو كان الملف نصي يحتوي على تنسيقات من النوع rtf‏ فستقوم بضبط النوع إلى 


: بالتتگل التالى مثلا‎ LC LEOSCEEAM TYE. RLCNTESE 


RichTextBoxStreamType.PlainText) 
RichTextBoxStreamType.PlainText) 


RichTextBoxStreamType.RichText); 
RichTextBoxStreamType.RichText); 


.LOAQdF ILE (OC: ARMEOSEEE FF; 
.SaveFile (@G"C:\Ahmed2.rtf ", 


RichTextBox1l 
RIChHIEXEBOXL 


VB.NET 


RILChHITIEXEBOXIL 
RICHATEXKXTBORIL 


تطبيق مثال البحث الذي سبق عمله لأداة النص › ولكن هذه المرة سنقوم بتلوين ڪل 


نتاتج البحث بدلا من تحديدها واحدة بالآخرى : 


.TOadFLlLe (TCT \ Amed. FILE ", 
.SaveFile ("C:\Ahmed2.rtf"™, 


RichTextBoxStreamType.RichText) 
RichTextBoxStLreamType.R1ichText) 


والآن ستعيد 


INL InNdeK = UF 
while ((index 


{ 


= TFICRATEXLBOKL. ToKT. INQCXOE(LCEKTBOX1L.TEKT, Index) ) I= =) 


textBoxl.Text.Length); 
System.Drawing.Color. Red; 


LLCDHIEXLEEBOXL.SELECENHOSR, 
rIchTextBoxl1.SelectionColor 


index += textBoxl.Text.Length; 


} 


زر(" الكلمات تلوين من الاتتهاء تخ"( Mes5ãğ680%X. 56W‏ 


VB.NET 


Dim index As Integer 


0 

CILCRLISXLEOKLATEKLT. LINOEXOTF(CEKEEOKI. TERT, 

textBoxl. Text.Length) 
SVSLEEM.DEAWLNG. COLOFE REQ 


While (index 1ndex) ) 
FICRTEKTEOKL. [SELECT] ONOEK, 
TLICHIESLEUOSL.SCELICGCLLONCOLOE 
index += textBoxl.Text.Length 


End While 
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وسيكون ناتج التنفين بالشكل التالي : 


a فاص‎ 


تم اةنتهاء هن تلوين الكلعات 


Call Stack 
الصورة 14. 13. نتائج تنفين شفرة البحث و التلوين.‎ 


Timer .9.6 


Ê timerl 
أداة للمؤقت › لها حدث ٣٥ء11 والذي يتم تنفيذه كل مدة معينة أ٣1€۲۷١| » تفيد فى حالة عمل‎ 
اوامر تکراريه بفوارق زمنيه.‎ 


مثال عمل ساعة بالثوانى » قم بضبط خاصية 21 اهاد ] إلى 1000 وهى ما تعادل ثانية واحدة › 


ايضا قم بضبط الخاصية ١٥1١ع‏ إلى عا٣اآ‏ ايضا وقم بكتابة الكود التالى فى الحدث ٤k‏ 1ًاآ: 


label1.Text = DateTime.Now.Hour + ":" + DateTime.Now.Minute + ": 
DateTime.Now. Second; 
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label1.Text = DateTime.Now.Hour + ":" + DateTime.Now.Minute + "¢" + 
DateTime.Now. Second 


وسيكون الناتج شينا مثل هذا : 


0:30:17 


الصورة 14. 14. نتائج تنفين الشفرة. 


TreeView .l1U0.6 


ا 


المجموعة الثانية ٠‏ 


الصورة 14. 15.الكائن 1٤W‏ 7٤reا.‏ 
لعرض أداة الشجرة » عنصرها الاساسي هو 00۴5 والذي يمكن من خلاله اضافة أي عناصر 
و حذفها. 


يمكن التخيير في التنسيق و حتى اضافة صور و خلافه ضمن هذه الأآداة : 


394 


الباب الرابع عشر بروجة النوافذ فى أع١.‏ 2008 


المجموعة الثانية =٠‏ 


يمكنك التعرف على المزيد عنها من الرابط التالي : 


رابط ھے 


http://msdn.microsoft.com/en-us/library/system.wiIindows.forms.treevlew.asDX 


ProgressBar .l11 .6 
O 


لعرض مؤشر التقدم » خصائصه الاساسية هي "2×1."10[× - MiN 1 "Nu"‏ لتحديد الحد الأعلى 
والآدنى اضافة للخاصية ط٤اS؟‏ لتحديد مقدار التقدم كل مرة » يمكنك تحديد ءأرا؟S‏ لعملية 
التقدم من خلال الخاصية عءع۷1را5 والتي تقرأً من ال enume۲a2101‏ المسمى 
FEOGEESEEATSLCYLE‏ 

هكن نخدي الحاصا لا حا بامتخة ام الحاصة عا اة 


TrackBar .12 .6 


مشابه لل ۲۲08۲۴5503۲ لكنك انت من تتحكم بقيمته » مثل ۳)03۲٤ه1۲‏ الخاص برفع وخفض 


الصوت. 
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DateTimePicker .l13 .5 


Sunday , September 21, 2008 


4 september, 2S ۴ 


Sun Mon Tue Wed Thu Fr Sat 
31 1 ا‎ 3 4 3 [ 
1 4 I0 ll 1F 13 
14 15 1Ö6 IF 18 19 20 

227 273 274 25 26 27 
ل فة‎ 30 1 ۳ 3 4 
. 0 7 . 4 I10 ÎÎ 

| | Today: 9/21/2008 


الصورة 14. 16 .|lÉJئj .DateTimePicker‏ 
أداة لاختيار التواريخ والآوقات > يمكنك تحديد اسلوب العرض من الخاصية 1ا۱۵١۲٤٣0 ١:‏ لتحديد 
اسلوب التاريخ المعروض . يمكن الحصول على التاريخ المعروض من الخاصية ع٤۷211‏ كما 


يیمکن و ضع حد اقصی للتاريخ و حد أدنی عن طر بق الخاصيتين MinDate - MaxDate‏ .„ 


الآدوات ڪتير ة ولا جدوى من اضاعة الوقت فى التعرف على تفاصيلها ... لذا أكتفى بأآن 


e 


احيلك إلى موقع مايكروسوفت حيث تجد شرحا تفصيليا لكل أداة : 


رابط گی 


http://msdn.microsoft.com/en-us/library/aa984065(VS./71).aspX 


Dialogs . /‏ 
في بدايه موضوعنا عن المربعات الحوارية سنقو م أو لا يتصميم واحد خاص بنا › تم في 


المرحلة الثانية سنقوم بالتعرف على استخدامات بعض المربعات الحوارية الشائعة. 


قم بانشاء فورم جديد » قم بالغاء خlاصة Reslzeable J|‏ > قم بضبط خاصيهة 
F'ixedDialog gl! FormBorderStyle‏ « §۾ èloخsla g MinilmlZzeB0Xx‏ 


×0 288 1 1۳×[ ... بهذه الطريقة يكون تصميم أغلب المربعات الحوارية. 
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الآن قم بتصميم المربع الحواري كما يحلو لك › في اي مربع حواري أو 0i310€‏ يكون الناتج 
واخدا من العناصر المعرفة في ١10أ۸1۳€۲3١€‏ المسمى اu1اsءo9R (1a1‏ والذي يحتوي على 


القيم التالية: 
Abort, Cancel, lgnore, No, None, OK, Retry, Yes‏ 


لضبط الزر الذي يعيد القيمة )0 نضبط خاصية ال 0۸ا ا BuامعAcc‏ للفورم على الزر 
المختار. 
انت الامر مت راتس احا اا )حت تد اة ن ا ا 


لاظهار فورم بصورة مربع حواري Dialog‏ نستخدم الأمر 03 ShowDial‏ بالشكل التالي مثلا: 


CF 


newDialog.ShowDialog (); 


VB.NET 


newDialog.ShowDlialog ()‏ 
و لکن و یما اننا بحاجه لقراءة القيم الناتحة عنه ومعرفة اي زر تم اختیاره » سنکتب الکود الخاص 


بنا بالشكل التالي على سبيل المثال: 


(newDlalog.ShowDialog () == DialogResult.Cancel) 


// do something 


} 
Slsêé iF (newDialoG.ShowDialogl), 4= DialGOREeSULE. OK) 


{ 
/7 do SomctKiNT ol 


lf newDialog.ShowDlialog() = DialogResult.Cancel Then 
' do Something 

Elself newDialog.ShowDialog () = DialogResult.OK Then 
' do something else 

BSN LE 
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ولو حاولنا قراءة محتويات ال 03108 سيكون لزاما علينا تعريف القيم المطلوبة 1٥‏ 1طنام » لذا 


قم متلا بتعديل مريع النص بالشكل التالي: 


CH 


public System.Windows.Forms. TexlLBox TextBoxl; 


VB.NET 


Public TextBoxl As System.Windows.Forms. TextBox 


MessageBox .1.7 


النوع الادسط والآأسهل من ال Dialogs‏ هو رسائل التحذير ×0 552985[ » صورتها الآبسط 
بالشكل التالي: 
Cf‏ 


MessageBox. Show ("Welcome ..."); 


VB.NET 


Public TextBoxl As System.Windows.Forms. TextBOX 


لو جربت معرفة البارميترات التي يمكن ارسالها للدالة 07 ۸؟ ستجد 20 ء0٣٥٣0۷6‏ تتيیح لك 


التحكم بآي شكل في رسائلك التحذيرية » سنستعرض اتثنين متها هنا 


- اظهار رسالة تحلذبربة كاملة 


CF 


MessageBox. Show ("Welcome ...", "Title", MessageBoxButtons. OK, 
MessageBoxlIcon.Exclamatlon) ; 


VB.NET 


MessageBox. Show ("Welcome ...", "Title", MessageBoxButtons. OK, 
MessageBoxlcon.Exclamatilion) 
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.  WelCOFTE ... 


DialogResult reslt = MessageBox.Show ("Do you want to save", "Title", 
MessageBoxButtons.YesNoCancel, MessageBoxIcon.Exclamatlion, 
MessageBoxDefaultButton. Buttonl) ; 
1f (reslt = DialogResult. Yes) 

MessageBox. Show ("you want to save."); 
else 1f (reslt = DialogResult.No) 

MESSa0SBOX:. SHOW TYoOU CONTE want to Save.) 
else 1f (reslt = DialogResult.Cancel) 

MessageBox. Show ("you cancel this operation."); 


VB.NET 


Dim reslt As DialogResult = MessageBox.Show ("Do you want to save", "Title", 
MessageBoxButtons.YesNoCancel, MessageBoxIcon.Exclamatilion, 
MessageBoxDefaultButton. Button1l) 
lf reslt = DialogResult.Yes Then 
MessageBox. Show ("you want to save.") 
Elself reslt = DlalogResult.No Then 
MessageBox. Show ("you don't want to save.") 
Elself reslt = DlalogResult.Cancel Then 
MessageBox. Show ("you cancel this operation.") 
EAC LE 


هناك عدة اختيارات أخرى > تتيح لك اظهار ملف مساعدة ... الخ » يمكنك استعراضها ا من 


رابط ھی 


http://msdn.microsoft.com/en-us/library/system.windows.messagebox.shOWw.aSspX 
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Dialog Controls .2 .7‏ 
بعد ان تعرفنا على النوع الأبسط من المربعات الحوارية وتعلمنا كيفية انشاءها › جاء الدور الآن 


على تعلم كيفية استخدام المربعات الحوارية الأساسية الموجودة ضمن الأدوات... 


ColorDialog L3 .1‏ 
مربع اختيار الألوان » قم باضافته من ال ×100|80 وسننشاً الآن مثالا بسيطاً لتغيير لون الخلفية 


لصورة متلا : 


UialogqEesult r 
if (res1t = Di 
MessageBox Î 
else 1f (reslt 
MessageBox f 
FEE 1L {(reslt 
HessaqEBoxk 


.ColorDialog jئاlکٹلا.17‎ .14 الصورة‎ 


ضف صورة ×0 ۲٤11۲۴8‏ زر أمر بسيط واكتب فيه الأآمر التالى: 


LL (COLOFDLALOGL: SHOWNDILaALOG (J. = Dla looReSULE. OB) 


BICEUEGSEOKLSEACKCOLIOE 3 COISTDISLOOL.COLOE, 
else 
MessageBox. Show ("cancel operation"); 
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LE ColorDialogl.ShowDialogG() = DialogResult . OK Then 
p1GCEUFEEBEOXIL.BSCKCOLOE = COLlOEDISLOGL. COLOE 


Else 
MessageBox. Show ("cancel operation") 
ENC. IE 


هناك بعض الخصائص الاضافية في مربع الحوار هذا لكنها غير شائعة الاستخدام متل 
u1 10 pen‏ ۴ا110v‏ والتي تستطيع منع المستخدم من اختيار غير الالوان القياسية بالشكل التالي 
مثلا: 


Basic colors: 

MI CEI HET 
MEI FHKE ESNEE 
LDS SN 
ENT HHHH 
mm E E E 


1II LLL MIL IL 
mmm 


Define Lustom Lolars 2 


الصورة 14. 18.الكائن 0010۲01210٩‏ مع الاتسغناء عن لوحة اختيار الألوان المتقدمة. 
والخاصية ۳1110٥١‏ التي تظهرها بالكامل مباشرة بالشكل التالي مثلاً: 
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mmm mS 
mmm Em 


Define Custom Colors zz 


الصورة 14. 19. الكائن 0010۲01210٩‏ مع لوحة اختيار الألوان المتقدمة. 


رابط تفصيلي من مايكروسوفت: 


رابط گے 


FontDialog .4 .7 


يستخدم لاختيار الخطوط» سنقوم الآن بعمل مثال لتغيير خط مريبع نص: 
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Eo aayeE. Fj, 

T.Ha] 

PE Han Eî saê." ] j 
It. Cancel) 


void burean1_C11ğ 


#aid biüteûn1_Cl1iډ‎ 
3Dia lag . ShoawCal aE 


:Dialcai. Fong = te) 


الصورة 14. 20.الكائن FOonNtDi2103‏ . 


EONEDTIALOGL SBHOWCOLGE. = BIO; 

FORELUIALOGLSEFONE = COSTE BORLLEONE; 
FORNEDLALOTL.COLOE = LCEXEBORL.FOFECOLOE} 

LE {EFORLDLALOGL.SROWDLALOGT() == DIalSoReSuUlIl. OR) 
{ 


LERXEBOXL.EFONE = TONEDLIALOGLLFONE; 
LEXTBOXLEOEECOLOE = TORCDLALOGLCOLOE; 


VB.NET 


TORNEDILaALOGTL; SHOWCOLOE = TEU 

FONEDLALOGLEONE = EEXLBOXSLl.FOoONE 

FONEDLALOGL.COLOE =3 TOXTEBOXL.FOFECOLGE 

LF FEONEDIALOTOL. ODONUTITLOT & DIALOG ESLE Thy 
LERKLBOKI. EON = TONLCDIALOGLLFONRTE 
LEXTEBOXL.FOrEECOLOF = TFonNTDIalogL.COLOE 

Eid. IE 


رابط تفصيلي من مايكروسوفت: 


رابط گے 


msdn.microsoft.com/en-us/lbrary/system.windows.forms.fontdialoqg(VS.80).aspX 
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Open And Save Dialogs .5 .7‏ 
اشهر نوعين من المربعات الحوارية › في العادة يتم استخدامهم لتحديد عملية فتح الملفات 
آو تحديد مكان حفظها » سنقوم بعمل مثال بسيط نقوم من خلال بفتح ملف نصي › التعديل عليه 

Es 
اضف مربع نص بسيط واجعل خاصية ع٥ع1۲1uآ=٥6٣111۸اu1[ . ضف زر للحفظ وآخر‎ 
بل سنضیفهم‎ Save 1leDlalog و‎ OpenF 11012103 للفتح › وأخيرا لن نقوم باضافة‎ 

من خلال الكود مباشرة. 
آو ل عملية لدينا هي استخدام المربع الحواري لتحديد الملفات النصية ومن ثم اختيار واحد منها: 


SEEING TFILETOOpEN =3 FF, 

OpenFileDialog openFile = new OpenFileDialog () ; 
openFl1le.DefaultExtL = "txt"; 

ODERFLLE.FLLTEE = WOE OOCUMENCS (F.LKLI I cL; 


VB.NET 


Dim fileToOopén As String = "™" 

Dim openFile As New OpenFileDialog () 

openFl1le.DefaultExt = "txt" 

OpenFLLE.TLLTLEE = WOE UoCimenls (FCLECI\I LLSET 

If openFile.ShowDialog() = DialogResult.OK Then 
fi1leToOpen = openF'l1le.FlileName 

EHC. TE 


اللآن اصبح لدينا مسار الملف في متخير› سنقوم بيعملية و ضع محتوياته في مربع نص بطر يقهة 
تاها سات 


iF (fileToOopen l= ¥) 


using (System. 1O0.StreamReader s1 = System. IO.Flle.OpenText (fl1leToOpen) ) 
| 

STEIN TIAL = ULL; 

LExXLBOKXI1. TeoKl = WY; 


while ((input = s1.ReadLine()) != null) 
{ 


LEXEBOXl1. TexXL #= Input; 
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VB.NET 


If fl1leToOpen <> "" Then 
Using sl As System.10.StreamReader = System.IO.Fl1le.OpenText (fileToOpen) 
LIM 1NBDUL A8 SULTING = NOCHING 
textBoxl.TexlL = "™" 
While (input = s1.ReadLine()) IsNot Nothing 


LeXİEBOXL. TexlL += InpBpUL 


End While 
ENO. USING 
Enid If 


اللآن سنستخدم مربع حوار الحفظ لتحديد المكان الذي نود فيه حفظ الملف: 


SLEINnG TLILlETOSaAVEGE. SS TT, 
SaveFileDialog saveFileDialogl = new SaveFileDialog (); 
SAVE LLEDTALOGL.ELLLEE = LRT TILES (TEL LTT ISLL TILES IIT; 
1F (saveFlileDlialog1.ShowDlialog () == DialogResult . OK) 
fl1leToSave = saveFilileDialog1.F1leName; 


VB.NET 


Dim fileToSave As String = "™" 
Dim saveFileDialogl As New SaveFileDialog () 
SAVE LLSDLALOOL:ELLTETD = FUKT TILES FST LEKI IALL FILES CO OT 
If saveFileDialog1.ShowDialog () = DialogResult .OK Then 
fl1leToSave = saveFileDialogl1.F1leName 
EME IT 


و ڪما تعلمنا سابقا »› نقوم بحفظ الملف النصي في المسار الذي قام المستخدم باختياره: 


1F (flleToSave l= "") 


using (System. 1O0O.StreamWriter wl = System.l1O0.Flile.CreateText (fl1leToSave) ) 
{ 


WIL. WELLELINE(LEXEEOXT LOST), 


} 
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VB.NET 


If fl1leToSave <> "" Then 
Using wl As System.1O0.StreamWriter = System.1O.Flle.CreateText (fileToSave) 


wWwl1.WriteLine (textBoxl. Text) 


ENO USING 
End IF 


الناتج سيكون شينا مثل هذا : 
ğFbutton2_Clicklobject sender, EventArgs €)‏ + 


r ا‎ WÎ + Ahmedêmal * Ûocuments ¢ 
feafari arelly com]. Ferf 4 - س س‎ E سے سے ع‎ — 5 


Favorite Links Name Date modified 
Sa iB Recently Changed i digital locker Downloads 
ıJ KONAMI 
1 ıJ My Chat Logs 
ivate Yoid burronz JÎ Folders *“ jÎ My Completed Downloads 
IÊ Documents »* jÎ MyReceived Files 
Ji digital locker) jÎ My Weblog Posts 
ıJ KONAMI ll Updates 
saveFileDialog1 . F ل‎ My Chat Log ıJ Visual Studie 2005 
di My Complet | jÎ Vîgual Studio 2008 
if [{saveFilebia1a)) ıJ My Received bt 
1 lJ MyWeblog! | a 
if (saveFileDj lÎ Updater IR My Sharing Folders 
1 E vi „ | tosend.bt 
٠ I Visual ulin : 


More 3% 


string fileToS5avê 
SaveFileDialog 38 


File nare: 
la) Hide Folders AE") 


.OpenFileDialog jئlÉJ|.21‎ .14 الصورة‎ 


هناك بعض الخصائص الاضافية لكلا الكائنين ›» يمكنك الاطلاع على المزيد عنهما هنا: 


رابط گے 


http://msdn.microsoft.com/en-us/library/aa28/7592(VS.71).aspX 


http://msdn.microsoft.com/en- 
us/library/system.windows.forms.savefiledialog.asDX 


حيث يمكنك تحديد نوع من الملفات او قراءة اسم المجلد او اسم الملف فقط › تحديد آكتثر من 
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PrintDialog .6 .6© 


Bh Add Printer n Microsoft APS Documen: 
#ã Adobe PDF n PrimoPDF 

N Fax 

a: Microsoft Office Document Image Writer 


Prirt to file 


Lurert Page 


1 


Enter either a single page number or a single 
page ranqe. For example, 5-12 


الصورة 14. 22.الکائj .PrintDialog‏ 
يستخدم للتحكم في خصائص عملية الطباعة » يمكن ان يفيدك الرابط التالي من مايكروسوفت: 


رابط گي 


http://msdn.microsoft.com/en-us/lIbrary/system.windows.forms.printdlalog.asDX 


8. أحداث الماوس 


أو لا لمعرفة الزر المضغوط من الماوس» ستذهب إلى الحدث N[01u5€(0(0۷1١‏ من نافنذة ال 


Properties 
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الباب الرابع عشر بروجة النوافذ فى أع٥1.‏ 2008 


E 


Form] System. Windows.Forms,Form 


ANE 


MdIChildActivate 

MınımumbSızek_ hang 

MouseLaptureL_ hang 

MouseL lick 

MouseDoubleLlick 

MouselDlown 

MouseEnter 

MouseHovwer 

MouseLeawe 
Uccurs when the mouse poınter Is over the 
component and a mouse button Is pressed, 


الصورة 4. 23. تحديد اسم الدالة التي تنفذن عند وقوع الحدث 11015٥800۷1‏ من نافذة 


e ۱‏ ا5 


ومن ثم نكتب الكود التالي: 


Lf (e.Button == MouseButtons.Left) 
MessageBox. Show ("Left click"); 

1f (e.Button == MouseButtons.RIight) 
MeSsSaGEeBOx. SHOW (TRIGINT CICK; 

1f (e.Button == MouseButtons.Middle) 
MessageBox. Show ("Middle click"); 


VB.NET 


IF €e.BULtIOoOn = MOUSEBUTToOoOnS. Left Then 
MessageBox. Show ("Left click") 

ala Is 

lf e.Button = MouseButtons.RIight Then 
MessageBox. Show ("Right click") 

EN. LE 

If e.Button = MouseButtons.Middle Then 
MessageBox. Show ("Middle click") 

ENC. IF 


ولمعرفة النقطة التى يمر عليها الماوس مثلا فى حدث ×M01u5€٥M07€‏ : 
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CUT. ICT GREE bO E Fy, TIE ay 


VB.NET ا‎ 


9. أحداث الكيبورد 


لقراءة الحدث الخاص بالزر المضغوط نكتب الأمر التالي مثلا في حدث: صلا إهK‏ 


ڪو د CF‏ 


lLAIS. TEXT = lev: " F# e. KEVCOQdE.TOSTCEING O, 


VB.NET 


Me.TexlLl = "key: " + e. KeyCode.ToString ()‏ 
و لكن لمعرفة ما إذا كان هتاك زر آخر مضخوط متلا مع الزر الحالي» سنضع الزر الأول في ۷ع) 
والتانی فى Nd ۴|٥١‏ بالشکل التالی: 


LHS. TexKT = SCTINT.EOEMAE (TKEY: {O} ModirTIler: {LIf}", ©6.KEVCOdE:. TOSTCEING (J 
e.Modiflers. ToString ()); 
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Me.TextlL = String.Format ("Key: {0} Modifier: {1}", e.KeyCode.ToString (), 
é€:Modiflers. TOSTEING (0)) 


۴ 


a Key: ControlKkey Modifier: None 


طعا ¥ داعى لاخمارك أن بامكاتك قرادة الأحدات تاستخدام ١‏ وتتفيد تعض الحمات نتا نها 
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1 . مقدوة إلى +ا60 


تتبع هذه الأوامر مجال الأسماء a۷113]ا‏ 0 ."عاSys‏ وتوفر لڪ حلو لا افضل من اجل 


رسومات 02 على الفورم والمخططات البيانية وخلافه » تحتوي على الفئات الرئيسية التالية: 


:System.Drawving .1‏ الفنة الرئيسية › تحتوي على الأقلام والفرش الاساسية التي 
تستخدمها في عمليات الرسم. 

2. em.Drawing.Drawing2DاSys‏ : تقدم مجموعة أخرى من الدوال التي تساعدك 
على الرسم gradient brushes Jia‏ ۾ geometric transforms‏ 

System .Drawv ing. ]rmag 13 .3‏ : تساعدك في عملياتك على الصور وقراءة البيانات 
الداخلة و تة الات اتمخافة. 

Systen.Drawving.Printing .4‏ : تساعدك على تحویل رسومات إلى صور للطباعة 
والتعامل مع الطاعبة. 

System. Drawing. rext .5‏ : التعامل بصورة رسومية مع الخطوط وخلافه. 


System. Drawing cعlwill‎ Jl5 ومحتویاٽ‎ .2 


هو محال الاسماء الأاساسي والآڪتر استخداها »آهم محتوياته هي: 


مmaPاB1‏ لحتواء معلومات الصورة 
١أدuااB‏ فرشاة لعملية التلوين › ولها عدة انواع 


كەuااع یمکنڪ باستخدام هذا ال ١۴۴لا الرسم باستخدام تقنية‎ Bul ]eredGraphlcs 


buffering 
الأآلوان التي يمكن استخدامها في عمليات الرسم‎ yرsاemez010rs‎ coاoعإ٣‎ 


والتلوين 
a1 1y‏ ۳ات" الخطوط التي يمكن استخدامها في عمليات 


النصوص. 
CEI CS‏ الكائن الاساسي في عمليات الرسم › والتي سنتعرف عليها لاحقا 
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ال ككةاء أaC abstr‏ لكل ما يتعلق بعمليات الصور 


قلم لعمليات الرسم › وله عدة آنواع 


تحتوي هذه الفئنة على كل ما يتعلق بعمليات النصوص 


.System. Drawing ء«lewÎلا‎ Jاجم الجدول 15. 1. أهم فثات‎ 
Double Buffering 


هي تقنية تسمح للرسم بالاكتمال في ١6لا‏ مستقل ثم ظهوره للمستخدم مرة واحدة لتلافي 
مشكلة €١‏ )|| على العموم هي تقنية مشهورة في تقنيات الرسم يمكن التعرف عليها من هنا: 


رابط گے 


كما يمكنك معرفة المزيد عن جميع محتوياتها من خلال هذا الرابط: 


رابط گے 


Graph1cs Aiألl‎ 


الكائن 6۲21١1٥5‏ هو الكائن الأساسي في عملية الرسم › يمكن انشاءه بعدة طرق: 
- من الفورم » وينطبق عليه من ×0 C1۲88‏ 1 وخلافه: 
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Cf 


ETApPRLEE MVUOFADNLCG = TFOLML.CEESLOGTIDNLCS 


VB.NET 


Dim myGraphic As Graphics = Form1.CreateGraphics () 


- أو من حدث الرسم لأآي اداة ڪالفوم متلا <« عن طريق اÛکlئj PalntEveN1TArFJsS‏ 
بالشكل التالي مثلاً: 


private vold Forml_Paint (object sender, PaintEventArgs e) 


| 
GEapHILES mMyGFEaphIc = eGFESPpHILCS (0; 
} 


VB.NET 


Private Sub Form1_Pailnt (ByVal sender As Object, ByVal e As PaintEventArgs) 
Dim myGraphic As Graphics = e.Graphics () 
ENG SUS 


ويحتوي هذا الكائن على الأوامر التالية: 
العنصر الو صف 


ECM),‏ عمل كائن رسم من صورة موجودة حالیا 


FromHwnd () 


F'romlmage ()‏ 
() عا مسح محتویات الکائن 


DrawArc ()‏ رسم صورة او شکل هندسي 


DraNBezlers ()‏ رسم - Beziers‏ ل اعرف معناها ولکنها ترسم منحنیات. 


Dra u V€ )(‏ رسم متنحنی 
DrawEllipse ()‏ رسم شکل بيضاوي 


Drawlcon ()‏ رسم ايقونة 
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الجدول 15. 2. أهم دوال الفئة GraphiCcS‏ 


لمزيد من المعلومات حول هذه الفنة ودوالها: 


والآن لعلك لاحظت آن جميع دوال الرسم DrawWwxXx<kx“‏ تستخدم القلم ٣‏ ما دوال التلوین 
×××1 ۳11 فهى تستخدم الفرشاة 6۲151 لذا سنبدا بالتعرف على هذين الكائنين أو لا. 
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۶e1 الفنۃ‎ .4 


يمكن استخدام ٤1١‏ في عمليات الرسم مباشرة عن طريق تحديد متل u٥‏ ۸۱5.61 للقلم 
الآأزرق وخلافه » إلا أنتا ما زلنا قادرين على تعريف كائن منه والاستفادة من خصائصه المتعددة 
بالشكل التالي مثلا: 


CF 


Pen myPen = new Pen (Color.Black, 3); 


VB.NET e 
Dim myPen As New Pen (Color.Black, 3) 


حيث قمنا بانشاء قلم بلون سو د و بعر ص 3 .یمکننا استخدام المزيد من الخصائص للقلم عن 


طريق تحديد مثلا شكل نقطة البداية: 


ڪو د ) CF‏ 


myPen.StartCap = LineCap.ArrowAnchor; 


VB.NET 


myPen.StartCap = LineCap.ArrowAnchor 
لمعرهفة المزيد عن خصائص القلم:‎ 


رابط گے 


http://msdn.microsoft.com/en-us/library/system.drawing.pen.aspX 


mE £ L_1 
Brush ÉAذiگdlI|‎ 
بنفس الطريقة › يمكن انشاء فرشاة باللون الأصفر كأبسط مثال بالشكل التالي:‎ 


CH 


SOLLOBTUShN MYEEUSh = NEN SOLILOEEUSH(COLOT. TELLOW 


VB.NET E 
Dim myBrush As New Sol1dBrush (Color.Yellow) 
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يمكن ايضا إنشاء فرشاة بأكثر من لون بالشكل التالي مثلا: 


ڪو د CF‏ 


HalCeHABEuUShA mMyEBEUSh = hew HaLcGhBEUShN(HaCCRASLYLe.BackwardDuagonal;  COoOLOF.Green, 
ColoOF. WHLLEE); 


VB.NET 


Dim myBrush As New HatchBrush (HatchStyle.BackwardDliagonal, Color.Green, 
Color.White) 


رابط ھے 
http://msdn.microsoft.com/en-us/library/system.drawing. brush.aspx‏ 


6 الرسمو 


بعد ان انشأآنا كائننا الخاص للرسم › يمكننا البدء في رسم خط مستقيم بالشكل التالي مثلا: 


CF 


MVCGEQAPNLGELDHEAWLINE( FERNS ELO, Ap. dU LOO LOO 


VB.NET 


CF 


myGraphic.DrawRectangle (Pens.Blue, New Rectangle (20, 20, 


VB.NET 


myGraphic.DrawRectangle (Pens.Blue, New Rectangle (20, 20, 100, 100)) 


0 


VB.NET 


MVGEAPDHLC.DEAWBEZILIGFE (FeN8S. BLuUê, 10, 20; S0, SU; LU, 


بامكاننا رسم خط مستقيم ولكن باستخدام كائن قلم سبق تعريفه وتحدیده بأنه منقط بالشكل 
التالى مثلا: 


Graphics myGraphic = e.Graphics; 

Pen myPen = new Pen (Color.Blue, 3); 

myPen.DashStyle = System.Drawing.Drawing2D.DashStyle.Dot; 
MYVUOFEApDHLGs DEAWLInNE (MYFEN;g. 20; 2U; ‘LOO, LOO, 


VB.NET 


Dim myGraphlc As Graphics = e.Graphics 

Dim myPen As New Pen (Color.Blue, 3) 

myPen.DashStyle = System.Drawing.Drawing2D.DashStyle. Dot 
MYGEAPGDLC DEAaWLINE (MYPER, 2U, ZO, LOO, 1O0) 


أو لرسم مسار من عدة خطوط على شكل مثلث مثلا: 


GEFA CSFPAETE. MYGEApNILCPAEh = He GFAGHICSPELCROY,} 
MyGEAGHICPAECHSSLCATEETIOUEE 

MVEALH.AGILINE CLO, LU, .SUpg. OOF 
MYPaATR.AOOLETLNE (30; 60; ‘6O, OFF 
MYPATH:AQAALINESE (OU. LO; LO LOS, 
MVyGEApNLCPFPaALR.CLOSEeFIGUEE (0); 
myGraphic.DrawPath (myPen, myGraphicPath) ; 


VB.NET 


Dim myGraphicPath As New GraphicsPath () 
MyVGEApHLCPACN:STCALCTELGOLUEE() 
MVESLLR.AGOLINECLO,. LO, SO; 60) 
MVEFACRM-AIALINES (30, 60, 6U, LO) 
MYVEACRM:AIAEIRE(CGO;,. LO, TO, 10) 
myGraphicPath.CloseF'igure () 
myGraphic.DrawPath (myPen, myGraphicPath) 


أو لرسمه ملونا نخير السطر الأخير ليكون ۳111۲۶31 مع تمرير الفرشاة المناسبة 
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رسم النصوص هو قسم آخر من عالم ال ا60 أبسط متثال عليه هو الكود التالي لرسم نص بفرشاة 
حمراء وبلون أحمر في النقطة 0 و 200. 
CH‏ 


myGrEaphic: DrawStLring ("Hello GDI#E", new Font ("Times New Roman", 
Brushes. Réd, #200; ZUU); 


VB.NET 


myGraphic.DrawString ("Hello GDI+", new Font ("Times New Roman", 30), 
Brushes. Red, Z200, 200) 


لكن لاحقا يكون بامكاننا استخدام الكائن 5۲1۸9۴١۲۳۵٤‏ واضافته إلى متغيرات الرسم › لكي 
نرسم مثلا نصا بصورة عمو ديه 


Graphics myGraphic = e.Graphics; 

SEELNOEOEMATE OEAWEOLMAL = NON SLELTOFOMAEO 
drawEFormat.FormatFlags = StringFormatFLlagSs-.DirectionVvertical; 
myGraphic.DrawString ("Hello GDI+", new Font ("Times New Roman", 30), 
Brushes.Red, 100, 20, drawFEFormat) ; 


VB.NET 


Dim myGraphic As Graphics = e.Graphics 

Dim drawF'ormat As New StringFormat () 

dfawWwFOoOrmat.FormatFlağgs = StrIngFOEMatF LagS: DIFECELONVEFTEILCAL 
myGraphic.DrawString ("Hello GDI+", New Font ("Times New Roman", 30), 
BruüUSshes: Reedy, I1IO0U;, ZU; QrFaWwEOEMaAE) 


سيكون الناتج شينا مثل هذا: 


a Example. Windows Forms 


a" 
O 
2 
0 
ن‎ 
4 


الصورة 15. 1. رسم النص على النافذة بالكود. 
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اختم الدرس بمثال جيد ليكون تطبيقا على دروس الرسوميات لدينا › المثال موجود على هذا 


الرابط وهو لرسم ساعة بالشكل التالي: 


رابط المثال: 


رابط ھے 
http://www.java2s.com/ Tutorial/CSharp/0480__2D/Clockanimation. htm‏ 
هناك الكثير جدا في عالم ال ا62 أخشى انني لم استطع إلا وضعك على أول الطريق فيه › 


يمكکٽنڪ الاستزادة منه من هنا . 


رابط گے 


http://msdn.microsoft.com/en-us/library/Ms533798(VS.85).aspX 
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WINndOWS 
Presentatlon 
Foundation 


اباب السادس عشر WPF‏ 
1. تعریفات اساسیة 


WPF .1.1 


Windows Presentation Foundation‏ او ما یعرف اسار باسم ۷۴۴ هي تقنية رسومية 
جديدة من مايكروسوفت بدأت مع 3.0 .net framework)‏ تعتمد على ما يعرف ڊlس۾ Extensible‏ 
Markup Language‏ icationاApp‏ واختصارا باسم ۸۷× و تنطق (زامل)» وهي تعتبر الجيل 
الجديد من تقنيات مايكروسوفت في الواجهات المرئية بعد M5SإF0 Windows‏ و GDI+‏ ڪھ DirectX‏ 
APIs‏ و Windows Media Player API's‏ للواجهات والرسومات ثنائية وثلاثية الأبعاد والفيديو 


على الترتيب. 


ما مع WPF‏ فقد اصبح بامكانك التحكم بجميع هذه النقاط ابتداء من تصميم الواجهات 


وانتهاء بالتصميم التلاتثى الأآيعاد والفيديو من خلالها. 


XAML .2.1 


تهدف ا۸۸۷ إلى الفصل بين الكود والتصميم بصورة كاملة مثلما كان يحدث فى صفحات 
AP.‏ . حيث تعد ]۸۷× شبيهة ب ا۳1۷ الذي تستخدمه لتصميم صفحاتك - مع الفارق - 


حيث أن ال ا۸۸۷ أقرب إلى نظام لغات البرمجة حيث يحتوي على فثات وخصائص ... الخ. 


Microsoft Expression .3 .1‏ 
فا و كان لض هار کن وها م شات لر وهات م ن تر ا ف ا 
في الفيجوال ستوديو » في حين تظل مجرد صور في برنامج لتحرير الصور مثل ۸00ءt0ه۸م‏ 
و بطريقة أخرى في برنامج متل Adobe Flash‏ .. تخيل الآن ان لدیڪ برنامج متخصص في 


الرسوميات ينتج الرسومات بصورة يمكن فهمها فى بيئة التطوير الخاصة يك © 


كانت هذه هى فكرة Exp reSS|0۸‏ > حيث تعتبر برامج متخصصة فى التصميم التابت 
والمتحرك وخلافه › ولکن الناتج يمکن أن يکون على شکكل ا۸۷N×‏ يمکن استخدامه فی تطبیقاتڪ 
المختلفة بسهولة. 
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هناك عدة اصدارات من هذه البرامج منها المخصص للويب ومنها الرسومى الشبيه 
بالفوتوشوب او الشبيه بالفلاش . لكننا نتوسع في شرح هذا البرنامج » ولكن ضع هدا البرنامج في 
اعتبارك طيلة فترة عملنا على ال N۷٣۴۳‏ حيث يمكن انتاج )۸۷× الذي نستخدمه من خلاله . 


كانت هذه مقدمة سريعة جدا > ستعود لنبدء عالم ال ۷۴٣‏ من البداية. 


2. آنواع تطبیقات ۸۶۴ 


تطبيق ۷۲٣۳‏ ليس مجرد تطبيق تقليدي فقط » بل يمكن ان يظهر على أكثر من شكل › سنحاول 
التعرف على هذه الآأشكال الآن. 


Traditional Desktop Applications -1 


النوع ا كر كبوعا > تطبيق تقليدي ع٥×‏ .» ال ۷۲٣‏ مجرد طريقة لتحسين المظهر والواجهات 
و خلافه. 


Navigation-Based -2 


يمكنك من خلال ١۴٣١‏ اختيار تطبيقك ليكون تطبيق عادي ولكن لديه خصائص المتصضح 
لديك ۴0W3۲4‏ و Bac)“‏ حيث يمكن للمستخدم التنقل بين صفحات تحددها أنت فى كع€ع2م» 


لا جديد في ڪو نها تطبيق عادي سوى مبدئ التصفح. 
XBAP Applications -3‏ 


ميزة جديدة من مميزات N۶۴‏ لبتاء تطبيق يعمل من خلال المتصفح › شبيه بمبداً ال 
etاApp‏ ۷۸ل حیث يتم الو صول إليه من خلال عنوان الا › يقوم بتحnيJ XBAP applicati0¬‏ 


فى ال ٥٣أأعة"‏ أةعها ويقوم بتشغيلها. 
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Silverlight Application -4 


من خلال WP۴‏ ایضا يمكنك بناء تطبيقات يتم استضافتها من خلال المتصفح مباشرة» 
شديدة الشبه ب 5۸ه|ا؟ كع dعمطا”e‏ الموجود فى صفحات الإنترنت المختلفة › يتمتع اJ Silverlight‏ 


بامكانيات غنية فى المظهر والتنفين على حد سواء. 


WPF محتویات‎ .3 


em.WNindowsSاys‏ : العتناصر الآساسية لل W۲۶۴‏ 


em.NindoNs.contro1sاys:‏ تحتوي على مجموعة من العناصر اللازمة لبناء تطبيقڪ 


مثل القوائم وال 1165S‏ 1001 و خلافه. 
.Mark up‏ em.WNindowsاys:‏ الفثات الخاصة بفهم وتنفينذ صيخ N1‏ ۸×. 


Media‏ .em.WNindowsعاys:‏ الفثات الخاصة بالتعامل مع الفيديو والصور المتحركة 


.3D والتصاميم‎ 


em.WNindows.Navigationاys:‏ الفثات الخاصة بالتعامل مع النوء-NavigatI0۸‏ 


0 من التطبيقات الذي وضحناه سابقا. 


.20 مجموعة من الآدوات لعمليات التصاميم‎ System .Nindowus. Shapes 
WP۴ تطبيقك الذول فی عالم‎ .4 


يمكننا بناء تطبيقات ۷۲۴ بدون الاعتماد على أ۸۷N×»‏ ولكننا سنتجاوز هذه المرحلة لنتعلم 


مباشرة كيفية بناء تطبيقات .XAML مۃIدختسl WPF‏ 


لو كنت قد جربت سابقا التعامل مع ا11۷ فأنت ستكون قد اجتزت نصف المرحلة » ولمن هذه 


هي المرة الأولى بالنسبة لهم فقد كانت ال ]11۷ تعتمد على 138١‏ بالشكل التالي مثلا: 
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HTML ) 2 


ca RFE SHAME BCRMLIT SAME a> 


الكود السابق يعني رابط ٣K‏ أا يشير إلى الصفحة أ"۸۳.ك١عمص"A۸‏ في حين ان النص المعروض 


للمستخدم هو Ahmed‏ . 


هناك طريقة أخرى لاكواد ال )11 بالشكل التالي مثلاً: 


HTML ) ا‎ 


هذا الكود يعنى صورة لديها م1001 وليس لها حدود » لو لاحظت فليس لها 138 نهاية. 
لو كنت ترغب بمعرفة المزيد عن 11٧۷]‏ يمكتنك البدء من هنا باللخة العربية : 


رابط گے 


http://www.html4arab.com/ 
ستکون معلومات سرتعة ۴ لن تاخة اکر من ساعتین فی تله ۳ سیکون مفیدا جدا کک کی‎ 
حتى مع استخدام ادوات مثل€۲٥W۷3۷ 0۲۴3۳ أو الفيجوال ستوديو في تطبيقاتك‎ ٣ تطوير المواقع‎ 

فمن المفضل التعرف عليها - شخصياً استخدم لبناء مواقعي ال N0630‏ في الغالب. 
المهم » هذا هو كل ما نحتاج إليه للبدء في عالم ]۸۷× » بنفس الطريقة سيتم توصيف الأدوات 


الخاصة بنا ء فهذا زر أمر مثلا: 


XAML ) ر‎ 


<BuULToORn RHeloht="SU0" WIdEh= I00" 


وهذا النوع الآخر: 


XAML ا‎ 
<Button Height="80" Width="100" Content="ClickMe"/> 


یمکن ان يکون لدینا زر آمر يحتوي بداخلة على عناصر آخریى › هذا متال: 


<BuLTon RELGONE = BU" WIQLh = FIO0> 
BUTE TOM. CONTEENT# 


SCEOLLBAE WOE s5 F5 BEGE = A07 
BUC EOR. Contos 
</Button> 


لكن المثال التالي خاطىئ ترا لان Scroll Jı‏ ليست مشتقة من CoE OCG‏ 
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<SCEOLLEAE HEIGL FEU" AOL & FIO 
<BUCEOoR WIQALh = "5" BEG = A0 /> 
CT SEEOLIBAT 5 


.. الندء ون خلال فيجوال ستودبو 
ا¥َن alتح WPF Application رlaتخlı „۾ã «. New Project ءlژil رlıتخl م۾ã « Visual Studio‏ 


بالشكل التالي: 


isal Studia installed bemplatez 

Î Windows Forms Application EA Class Library 

WD ASP.NET Web Application f ASP.NET Web Service Application 

[WPF Application PAIWPF Browser Application 

i Consele Application f Excel 3007 Workbook 

Ê Outlook 07 Add-in FE WCF Service Application 

# Word AUT Document lFIWindows Forms Control Lebirary 
My Templates 

Rl AĞP.NET AJAX Control Project (jJ Search Online Templates... 


Srriart Dêvigê 
fice 
Daftaliase 


Database Frajecis 
: Other Languages 
Distributed Systems 
iver Project Types 
' Test Piojertr 


Windows Presentation Foundation client application (. NET Framework 2.5] 


Name: Wpiûpplicatiend 


Locations CMUseriAhmedi Documents Nmual Studie 20081 Projects 


Solution: Create new Solution zr 
Solution Nave: Wp Applications 


الصورة 6. 1. انشاء مشرو ع P۴‏ جدید. 


قم بوضع زر أمر ومربع نص » ثم لاحظ شاشة ال أ۸۷N×‏ . بالتحديد قم بالتركيز على الجزء 
التالى: 


e 
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الصورة 1 . 2. محر ر 
شفرات ال اAML×.‏ ۱ 1 


11 


ستجد انه كما ذكرنا 

بالفعل بقام بعمل انشاء . 

كود ا۸۷× لكافة عناصر N‏ 

الفورم وو ضعها داخل | ا ا Ga Design 7 TT XAM‏ 

٣ eager YEE ثم‎ N1٣ d0۷ العنصر‎ 
| ايضا تجد يعض‎ «Grid 


xming="hrcrep: f f schemas .microsofr . com minx 2006 xeml /pzresencarcion"™ 
mlna ua "hTEp:/ f schemas. micrFosofE. com winfx/ 2006/ xami" 
Titles "Windawl1™" Heigita"300" Width r00; 
FIA? 
#BüiEton Hsight="23° Hargin="98, 0, 105, 91" Hame="büûttonl”" VerticalAilignıment="3 
tIExEBOE Height= "23" Hargih=™"T7, 80,81,00" Hame=a"textBorl" YerticalAlignmenî™"™ 


العناصر الاضافية في حالة 

التصميم .» الآن اصبح 

PL. | بامکانڪ كتابة ڪود‎ 
Button (buttonl} Window eridf Bulten | 

XAM‏ او الاعتماد على 

التصميم كما تفعل مع تطبيقات الويب - إن كنت مبرمج ويب - . 

ستحاول الآن التعديل في خصائص 1100۷ لتغيير عنوان الفورم » قم بمسح الخاصية 11٤1٥‏ 

ثم اذهب إلى نهاية الوسم وابدأ بكتابة مسافة ومن ثم نقوم باختيار 11٤1٥‏ ومن ثم نكتب ۷۲۴ "= 

eامExamp‏ بالشکل التالي مثلا: 

[1 Design 2 TF 7 XAM | ۰ n= Î 


5 tRIndow x: Clasa="HpfAppPlicationd .Window1" 


a ak 
EF WAinmdawîz 


mlna" htEp:/ f achemas . microsoft. com winfkK7 2006/ xaml f presentation" 
HELLAS EF FHTTEP: 7 / ACBHEMAS .MAûCEOIDETE . GOM WINTE 2 0O6/ EARL" 
IJiAClLE="Windowl" Reighr="300" Width="300™ cab 


-[ ا‎ Ir - | 
#Button Height="23" Margin="99,0,j] etElement 


1 


1ignmen t=" Br 


| 
+TextBox Height=" 23" Margin="77, 8| 7 IPR SI1A1li grnment=""] 
: Î? TetSearch 
+ GEIR أ‎ 
PETES | {F Thumb 
) |} TeggleButton ا‎ 
Tl I |? ToclBarTray | ٩ 
Window Window | I Tooltip —-_- 
کے ت : ت‎ : — = # ToolTipClosing : : © 
jl # ToclTipOpening 1 ب‎ | 


الصورة 16. 3. محرر شفرات ال ×۸١]‏ و تعديل الخصائص من الكود مباشرة. 
سيكون الكود الاجمالي ]۸۷× بالشكل التالي: 
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<WILRGAOW XKiClLlaS5S=WOTADPLICaALLONZ cWIRQAOWI" 
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"™ 
XML PFDOLCED/ 7 SCREENS. MICTFOSOETC.COMVRINTEST 2 DOS SEMI" 
Helight="300" Width="300" Title="WPF Example"> 
«GE IGS 


<BULtEoRn Helont="23" MaroGOIn="SS U, 105,91" Name="püulltonl™ 
VEFCICALALILGNMERNTC=FBSOEEOM”" CLILCK=PDUTEORILCIILCKETSBULCTCONSTBULTCONS 
<TextBox Heilight="23" Margin="77,80,81,0" Name="textBox1"™ 
VerticalAlignment="Top" /> 
</GEIQA> 
</Window> 


لاحظ ان بامكانك التحكم في جميع الخصائص لكل الأدوات بنفس الطريقة. 
اللآن جرب كتابة أمر بالضغط على زر الأمر مرتين» ستجد نافذة مستقلة للكود غير تلك التي 


للتصميم» اكتب فييها الآأمر التالي مثلا: 


private void buttonl_Click (object sender, RoutedEventArgs e) 


LtextBoxl.Text = "Welcome WPF"; 


} 


VB.NET 


Private Sub buttonl_Click (ByVal sender As Object, ByVal e As RoutedEventArgs) 
textBoxl.Text = "Welcome WPF" 
End SUb 


mW WPF Example والناتج: ی‎ 


لصورة 16 4 ج انه E‏ 
ره 6 2 ۱ Welcome WPF‏ 


ايضا يمكنك كتابة الكود في نفس شاشة التصميم 


بالشكل التالى: 
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<x : Code> 
<! [CDATA[ 
void CodeExample (object sender, RoutedEventArgs e) 


{ 


MessageBox. Show ("ahmed") ; 
} 


J]> 


</x:Code> 


مع جعل اسم الدالة على الاسم الذي اخترته في الحدث ء11 لزر الأمر بالشكل التالي مثلاً: 


<EButton HelgGht="25" Margin=" 99,0, 105,91" Namée="bpulttonl™ 
VéerticalAlLigimént="BGlETtomM" CLICK="CodeEKaMOolG">BULTOoON</BUEEoN> 


ونفس النظام بالنسبة ل ا٥۷68.۸‏ ايضا أثناء كتابتك للحدث ء11٤‏ يمكنك من خلال أجuءVi‏ 


0ا انشاء حدت جديد مباشرة... 


خاتمة الجزء الأول - نقاط سربعة 
- لو كنت تبحث عن معرفة ال 5⁄١3×‏ الخاص ب ا۸۸۷ بتوسع يمكنك البدء من هنا: 


رابط گے 


http://msdn.microsoft.com/en-us/liDbrary/ms788723.aspX 


- لاعتماد أحداث ال 0۲۳102٩‏ وخلافه يمكنك اضافتها ل 11007۷ بالشكل التالي مثلا: 
ا | XAML‏ 


Loaded = "Window_lLoaded" Closed = "Window_Closed"™ 


ونفس الأمر مع جميع أحداث و خصائص كل الأدوات. 
- لو استمررت بهذه الطريقة مع ١/۲٣‏ فآنت تعطي لنفسك المزيد من التحكم بالمظهر › لكن لو 
ڪنت تريد جمال الواجهات وخلافه فيمکٽنڪ البدء مع 8|۸ ۸ Microsoft Expressi0‏ من ضمن 


مجموعة Microsoft ٤xpم r essi|0۸‏ » هذه صورة للواجهة الرئيسية متلا 


393 


Dhilrt - Freh ic Hn bp 


r 


Gram Fr: Fea rau 


F ÇeeTH mu] empire 
Carla sî 


E gare 


¥ I" | Laren | TERE 


i 1" Fara) : HiklËêr ت‎ 


Fi Karmel ۳ : ALLE TI E ® 
Faêz] : 
i armani] 


N 


1 i” Cea] 
E 


س e e ww a r e mm e mm mm mm < e mm n‏ س 


| [| rif erte: = llr Lapêr ein Brad 3 Mary Frere 


394 


اللاب السادس عسشر WPF‏ 


EY PhP ane BRyling, Mk rasall Frpreselon Wend ا ال ت‎ 


lnfragisticg’ 
Windajye Fraser 


„Expression Blend Jı الصورة 16. 5. استديو‎ 


ناتج تصميمك سيكون ×۸١‏ يمكنك وضعه في ال 51010 أهلاكا/ مباشرة وسنتعرف عليها 


فی دروس قادمهة . 
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WPF ٽlgدÎ‎ .6 


اضافة للادوات التقليدية » توفر لك ۷/۲۴ مجموعة من الأآدوات الجديدة » أو تخير من 


مظهر ها و خياراتها من أجل استخدامڪ لها. 

آو لا : مجموعة الآدوات التقليدية مجموعة الادوات المعتادة التي تضم Bu †0١‏ ,عاطLab‏ 
وباقي الأدوات العادية » فقط تتمتع ببعض الخصائص الإضافية لتجميل وتحسين المظهر . 

تانيا : آدوات الفورم مثل القوائم واشرطة التمرير وخلافه. 

خالثا : آدوات ال آل6 مثل أدوات الصوت والصورة والفيديو وخلافه. 


رايعا : آدوات المظهر تضم بعض الادوات الاساسية متثل ال ×0ام ام6۲ وال أعم"٣ة۴‏ وآخرى 


. StackPanel و‎ Canvas Jin جديدة‎ 


الصورة تو صح محموعه من آدوات P۴‏ المختافة 


| B' Windowl 


# J File (¥ | Help 


الصورة 16. 6. تركيب عدة أدوات ۷/۴۴ مع بعضها البعض. 


وكود ال )۸۷× الخاص بها بالشكل التالي: 
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<WILRNOOW SICLAaASS=WOTADPLICALCLONS cWIRQAOWI" 
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"™ 
XML POLCED T/7 SCREENS  MICTOSOET < COOMV WINES 72D 0O6 SSM" 
Title="Windowl" Height="240" Width="343"> 
GELS 
BUL LEON . NamMe='pInNPUECHASEODTIONnS" MaFOIN=TIU. SOL; LIV, OL > 
ESTACKP ARNEL 
<StackPanel Orientation = "Horizontal"></StackPanel> 
7StaCKEane ls 
J BUCEON* 
<Expander Name="helpExpander" Header="Help" Helght="23" 
HorizontalAlignment="LlLeft" Margin="70,70,0,0" VerticalAli1gnment="Top™ 
WIQtEH=S1. T7972 ExXoDanders 
<Expander Name="fi1leExpander" Header="F'l1le" Helght="23"™ 
HorizontalAlignment="LlLeft" Margin="22,70,0,0" VerticalAli1gnment="Top™ 
Width="44, 95" ></JExDanders 
<Slider Height="21" Margin="21.757,0,19, 75" Name="slider1" 
VerticalAlignment="Bottom"> 
SLICE. BLIMGSBETTEeGES 
<DropShadowBitmapEffect /> 
</Slider.BitmapEffect> 
C7 SLLIEE> 
<ProgressBar Helght="15" Margin="23,0,19,50" Name="progressBarl" 
VerticalAlignment="Bottom" Value="50" /> 
CJGELA 
</Window> 


نقاط سريعة حول ادوات WPF‏ 


- الآأشكال البيضاوية ١1115٥:‏ لتحديد الأشكال البيضاوية والدوائر وخلافه. 
- عناصر ا115 أو ال ×080 C0۳٣0‏ اصبح بالامكان تحديد لون وخلفية مختلفة لكل منها بالشكل 
التالي مثلا: 

#] Window1 لاص‎ 
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الصورة 16. /. التحكم في عناصر ال .٥C0۳٣5(080×‏ 
- يمكن تفعيل خاصية تصحيح الخطاً ×ء٤‏ ٥1٣11ء5‏ في أي مربع نص بالشكل التالي مثلاً: 


<TextBox SpellCheck. IsEnabled="True" Height="23" Margin="20, 44,16, 0" 
Name="textBox1" VerticalAlignment="Top" Grid.Row="10" /> 


ويمكن معرفة البدائل للخطاً المو جود عن طريق ڪتابة ڪود مثل التالي: 


SLCEINnG alterWordls =5. Rw; 
SpellingError error = textBoxl.GetSpellingError (0); 
1f (error 1= null) 
TOFeEaCn (STENT S6 AR EFEEOF. SUGGESTIONS) 
{ 
ALTE rWGoEdS +#= 5 + AT"; 


} 


MessageBox. Show ("Alternative Words:\n" + alterWords); 


VB.NET 


Dim alterWords As String = "™" 
Dim [error| As SpellingError = textBox1l.GetSpelllingError (0) 
Il .(errOE] TSNot Nothing Then 


FOF Each 6 AS SLTIEINnG IM [EEFOFI:SUoesSLlions 
AION a. 0 TE EC CHFEIO; GC FF 
NeXT 


MessageBox. Show ("Alternative Words:" & Chr (10) & "" + alterWords) 
End IF 


والناتج سيكون شينا مثل هذا 
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Alternative Words: 
Information 


ربط llلıیlنlٽ Data-Binding‏ 
في ال ۷/۲۴ » نستطيع ربط قيم مناصر بطريقة مباشرة » مثلاً لربط قيم 46ا5 ب 
×80)×€[ مباشرة » نقوم باضافة فقط الجزء التالي للأداة المراد ربطها: 


DataContext = "{Binding ElementName=sliderl}" Content = "{Binding Path=Vvalue}" 


<Slider Height="27" Margin="20,40,16,0" Name="sliderl" VerticalAlignment=" Top" 
<Label Height="28" DataContext = "{Binding ElementName=sliderl}" Content = 
"{Binding Path=Value}" Margin="20, 72,16,0" Name="label1" 
VerticalAlignment="Top" BorderThickness="O0"> 
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الصورة 16. 9. استغلال خاصية ربط البيانات. 


WPF 2D .8 


دنعود مرة آأآخرى لعالم الرسوميات ثنائية البعد ولكن في ال N۲٣‏ هذه المرة » ستتعرف 


على تقنيات شبيهة بتلك التى تعاملنا معها فى +ا610 ولكن هذه المرة من خلالN۶P۴.‏ 
بداية تحتوي خيارات الرسم على واحد من الفئات التالية: 


System.Windows.Shapes 
System.WIindows.Medilia.Drawing 
System.Windows.Medla.Visual 


8. 1. الرسم باستخدامٍ Shapes‏ 
تقع جميع الاشكال تحت الفئة System .Nindowسs. S126 €S‏ » نبد بابسط متال 


<Rectangle Helght="100" Width="200" Stroke="Red" StrokeThickness="2"™ 
FILL=FAGURA" 7> 


الناتج سيكون بالشكل التالي: 
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21 Wîndowl ا‎ 


الصورة 6. 10. رسم مستطيل مع خاصية الحواف و التلوين. 
الأشكال التي يمكنك رسمها يمكنك الوصول إليها عن طريق 8۲0۷56۲ 00j€ ٣‏ بالشكل التالي مثلا 


| ay stem. Windows, Shapes ¬ < 


E ۳ System. Win dows.Shapes 
i. Ellipse 
i... Line 
iê Path 
i Polygon 
i... Polyline 
i.e Rectangle 
it Shape 


الصورة 16. 11. متصفح .Object Brows@r Jı‏ 
ويمكننا التعرف على الخصائص التي يمكن ان نجدها لآي شكل منهم › الشكل التالي كمتال: 
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Browse: All Components ا شرا وا‎ ÊÞ 
| Sytem: Windows Shapes 5 3 = | 7 ArrangeÛverride( System, Windows: Size) 
r o, 2,2-2 CacheDefiningGeormetry] 
E- 8 REE j GetDefiningGeometryEounds] 
٣ % ۰ „j # GetNaturalSize] 
Di |j MeasureOverridelSystem.Windows.Size) 
١ A Polygn gj OnRenderiSystem. Windows. Media. DrawingContext) 
-E Polyfine i Rertngleh 
St Rectangle Î DefiningGeometry 
y7 | EffectiveValuesInitialSize 
2 بش‎ SS Er, Geometry Transform 
A-j FrameworkÊlement = aE 
Hi-#¢ Shape | RadîusY 
E FT RenderedGeometry 


—- @ RadiusXProperty 
@ RadiusYProperty 


# 


Toubkie sealed EEE atangie: 


Member of System. Windows. Shapes 


Summary: ا‎ 


ETT 


.Object BroWs@r Jı الصورة 16. 12. متصفح‎ 


ڪما يمکنڪ التعرف على الخضائص الفامة تل عة الموجودة في الصورة التالية مثلا 
Definingqieometry‏ 2 اون 
Fill‏ ...: ا 
Geometry Transform‏ 3 ا 
IsSPenNoUp‏ 0 
Renderedieometry‏ وم e‏ 
stretch‏ ا 2 ۰ 
stroke‏ ا م 2 ۰ 
strokeDashArray‏ 2 
ê StrokeDashCap‏ و ۰ 
StrokeDashUffset‏ ا ۰ 
strokeEndLineLap‏ وم و ۰ 
strokeLIıneloın‏ 3 
HF StrokeMiterLimit‏ 
Ff StrokeStartLineCap‏ 2 
ORE RS‏ 2 


4 1 1 


الصورة 16. 13. خصائص ال ٥م S12‏ . 
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خصائص القلم ۶٥۸‏ 


<Pen Thickness="10" LineJoilin="Round" EndLineCap="Triangle" StartLineCap="Round"™ 


ر 


I‏ لاحظت بما تعلمناه في +ا00. 


Brush ةluرفلاl خصانص‎ 


هناك عدة انوع من الفرش يمكن استخدامها في تطبيقاتڪ › منها: 


a ؟‎ 
> 


NLN BES‏ لوين عغادى: 

rus‏ geBلma]:‏ تلوين جزء من الشكل بجزء من صورة. 
:linearGradlentBrush‏ تدرج خطي لعدة الون. 
:Rad1la1Grad len tBrush‏ تدرج دائري لعدة الوان. 
Brushع10r :6011d c0‏ فرشاة للون واحد فقط. 

أبسط متال عليها هي الفرشاة 4١ا50‏ بلون واحد فقط: 


<Ellipse Height ="50" Width ="50"> 
SELLIOSGCEFILLS 


#SOLIOCOLOEEEFUSh Color =A" 
¢CZJELLIDSG,F LLI 
TJELILIGSE>S 


مثال باستخدام Rad 1a1 Grad 1 e^ B۲U S1‏ للتدرج الدائري: 
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<ELLIpS6 WICGTh. =5" HOFLZONEALALILOnmMEeEnT=TLeTL" MaAFOIN="2 SIU, UF FG > 
CELLID STILLS 
TRaACILIALGEAQLENTEEUSH GLCOCOLENEOELOLNSP U.S, U15" CENTOS, U" 
RaQ USK=" U. 5" ROI US T0. 5> 


<GradientStop Color="Yellow" Offset="0" /> 
<GradientStop Color="Red" Offset="0.25" /> 
<GradientStop Color="Blue" Offset="0.75" /> 
<GradientStop Color="LimeGreen" Offset="1" /> 
</RadialGradientBrush> 
€JELLIDSEFLLIL> 
<ZELLIbSE> 


و أخيرا متثال لطباعة جزء من صورة داخل شكل: 


<Rectangle Helght ="100" Width ="300"> 
<Rectangle.Fill> 
<“ ImaGgebBEüsh> 
<ImageBrush. ImageSource> 
<BitmapImage UriSource ="pic.JPG"/> 
</ImageBrush. ImageSource> 
</ImageBrush> 
</Rectangle.Fill> 
</Rectangle> 


ناتج من موقع مايكروسوفت لاستخدامات الفرش المختلفة: 


Solid ColerBrush LınearGradientBrush RadıialGradientBrush 


wısualBrush_ 


الصورة 16. 14. نتائج استعمال الفرشاه 8۲15۸. 


404 


الباب السادس عشر WPF‏ 


و هذا الرابط لمزيد من التفاصيل 


رابط گے 


http://msdn. microsoft. com/en-us/library/aa970904.aspX 


Transformations JI .4 .8‏ 
ستفيدك كثيرا هذه الخصائص في حالة برمجة العناصر المتحركة او المتأثرة بمدخلات 


المستخدم» حیث يیمکٽڪ تحريك الأشكال وتدويرها و عكسها و خلافه من العمليات المعروفة. 


المثال التالي يوضح بعض التأثيرات على مجموعة من الأدوات الموجودة لدينا في الفورم 


<ButtOon HEIGHE="23" Maroin=" 2, T2,0,0" Name="bpiulctonl" VerticalAlilgnment= "Top" 
HOFLZONTCALALIONMERLS "LETT" WILO ST SBUCEON 
<EUEtONnN ,RONCSTETEANSTOEMS 
<SkewTransform AngleXx ="30" AngleY¥ ="20"/> 
</Button.RenderTransform> 
RFBULCEORNS 
<TEXtBOX Margéin="142,11l1,59,0" Name="ltexlBoxl" Helghlt="23" 
Verti1icalAlignment="Top">Ahmed 
<TextLBox. RenderTransform> 
ITFAaNSTOIMGTOUDS 
<SkewTransform AngleXx ="20" AngleY¥ ="20"/> 
<RotateTransform Angle ="45"/> 
<SkewTransform AngleX ="5" AngleY ="20"/> 
CJ TEANSEOEMGEOUBS 
</TextBox.RenderTransform> 
4/TERIEBON> 


هده د للناتح: TE Pex}‏ 
وهذه صور تج ےا ˆ | FÎ Window1‏ 


الصورة 16. 15. نتائج عملية استعمال ال 
.Transformation‏ 

غل هذا اثرانط تظیق ۲۶۴ جمیل خد تاکر 
بصور مختلفه على اي شكل: 
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رابط ھے 
http://www.codeproject.com/KB/WPF/Transformationsl ntro.aspX‏ 


هذه صورة التطبيق : 


WE Application ااا‎ 3 


Application 


Trans xX: 
Rotates angle: 
ale FR: 


Sle K2 


الصورة 16. 16. برنامج المثال الذي ستقوم بتنزيله من موقع ال 0N‏ 15™. 


WPF yê Animation JI .9 


تقع كافة الخصائص والدوال المتعلقة بعمليات التحريك وال ۸۸1۳۵0١‏ تحت مجال 
الاسماء en.Nindous.Media.Animat101اSys.‏ اي حركة تحصل لأي اداة لديك لا 
بد لها من ثلاث خصائص »]٥ » ۲0٥۳١‏ 5¥ حيث تحدد نقطة البداية والنهاية والخاصية التي يتم 
SVE I DS‏ 

ولآي حركة هناك ايضا 1€ »1"1me1‏ اهم عتاصره هي: 
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العنصر الو صف 


للعودة للخلف بعد انتهاء الحركه 


الفترة التي تستغرقها عملية الحركة 


الجدول 16. 1. أهم خصائص الفئة 1٥€‏ 11٥ص1"‏ 
متال» تخيير حجم الخط کی1 14506 


DoubleAnimation dblAnim = new DoubleAnimation (); 
dblAnim.From = 10; 

dblANnim.To = 30; 

label1.BeginAnimation (Label.FontSizeProperty, dblAnim); 


VB.NET 


Dim dblAnim As New DoubleAnimat ion () 

CBLAHIMLETOM 3 10 

dbLARIMmM., [IO] = 30 

label1.BeginAnimation (Label.FontSizeProperty, dblAnim) 


بداية الحركة: 


نهابة الحركهة: 
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Ahmed Gamal 


نمك تخددد مدة الخركة اتگل التائی مغلا 


C# | ڪو د‎ 
dblAnim.Duratlion = new Duration (TimeSpan.FromSeconds (4)); 


VB.NET ا‎ 


dblAnim.Duratlion = new Duratlon (TimeSpan.F'romSeconds (4) ) 


C# ) ڪو د‎ 
dblANnim.AutoReverse = true; 


VB.NET E 


و يمكننا تحديد اعادة العرض بعد انتهاءه: 
ڪو د ) Cf‏ 


VB.NET ا‎ 


dblAnim. RepeatBehavior = RepeatBehavior.Forever 


او اعادته لاربع مرات فقط على سبيل المتال : 
CH me‏ 


VB.NET E 


dblAnim. RepeatBehavior = new RepeatBehavior (4) 
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10. الحرکةۃ باستخدامٍ XAN٠‏ 


كما اتفقنا منن اللحظة الأولى في هذه الدروس» انه بالامكان تطبيق اي من الاوامر عن 
طريق اأ۸۷N×‏ او عن طريق الكود كون جميع هذه الخصائص يمكن الوصول إليها من الكود 
والعكس» الآأن لدينا متثال حول جعل ١0۸ا‏ 11ا5 يقوم بالدوران حول نفسه في حالة الضخط عليه 
بالماو س - من ڪتاب 2008 Pro CSharp‏ : 


<Button Name="myAni1imatedButton" Width="120" Helilght = "40" 
ReEnNndETITANSTOIMOELIGILIN=P U.S; U.5" CONCENT = ORs 
<EUETON. RENnQEFTITaANSTOEMS 
<RotateTransform Angle="0"/> 
</BUEEoOn. RendérETrEansforh> 
<!-—- The animation 1s triggered when the button is clicked --> 
KBULETON. TEIGGEESS 
<EventTrigger ROuUutedEVENTL="BULTON.CLIICkK"> 
CECGINSLOEYVDHOATGOS 
XOCOFYVBOAES 
<DoubleAnimatlonUsingKeyF'rames 
Storyboard. TargetName="myAn1imatedButton”"™ 
SLEOFYDOAEC: TATGETPrOpETEY= 
" (ButLtLon.RenderTransform). (RotateTransform.Angle)" 
DUFECIGOHS TODS EFLLLBGONOVICOE= LOD 
<DoubleAnimatlonUsingKeyFrames.KeyFrames> 
<LinearDoubleKeyF'rame Value="360" KeyTime="0:0:1" 
* 
<DiscreteDoubleKeyF'rame Value="180" 
KeyTime="0:0:1.5" /> 


</DoubleAnimationUsingKeyFrames.KeyFrames> 
</DoubleAnimationUsingKeyFrames> 
CJ SEORYbDOSEOS 
4J BEGINSEOEVDGAEOS 
</EventTrigger> 
CZJEULCLCORN.TEILGTEESS 
CJBUCEOoONS 


11. تعرڀیف Styles‏ 
إذا كنت قد جريت E‏ اي نوع من برمجه الويب كنت ستعرف ان لدينا ما يعرف 
باسم ء€|¥آك وهي مجموعة من الخصائص تحدد الطول والعرض والالوان وخلافه تحت مسمى 

مثلا 03۲۸51۷1۵ بحيث يمكن بعد ذلك استخدامها فى اي اداة بكتابة اسم ال S71٥‏ فقط. 
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التوصيف لكل زر امر متلا في حالة آن لدينا عدة ازرار أمر لها نفس ال ٥1ا5‏ لذا سنقوم 


بتعريف ٠1ر5‏ بالشكل التالي مثلا: 


<Window.Resources> 


<Style x:Key ="darkstyle"> 
<Setter Property ="Button.FontSize" Value ="15"/> 
<Setter Property ="Button.Background"> 
<Setter.Value> 
<LinearGradientBrush StartPoint="0, 0" EndPoint="1,1"> 


<GEadlientSEoD: COLOE="BIlack" OffSet="Û0" 7> 
<GradientStop Color="Blue" Offset="0.25" /> 
<GradientStop Color="Brown" Offset="1" /> 
</LinearGradientBrush> 
</Setter. Valüo> 
</Setter> 
SE TILES 
</Window. Resources> 


والآن لكل زر آمر يكفي التعريف بالشكل التالي: 


<Button Name="bþ1l" Width = "100" 

StyYLeê ="{[StalticResource darkstvle}" Content = "Button 1" 
HorizontalAlignment="Right" Margin="0, 61,30,61" /> 
SBULTOR Names" pe” WIQER = IU 

Style ="{StaticResource darkstyle}" Content = "Button 2" 
HOFILZONTALALIGNmMeENT=TLEeETT" MarGin=T25,6l1l,0,01l" 75 


الناتج سيكون بالشكل التالي: 


الصورة 16. 17. نتائج التنفين. 
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1. 1. تغییر طبیعۃ ال عار†> 


يمكنك تعر يف اشياء مخصصهة لتغيير الموجود في Style Jı‏ المستخدم» مثلا لتحديد زر امر 
حجم الخط ولونه فيه مختلف لا يلزم تغيير ال ٥1ا5‏ بالكامل بل يكفي كتابته بالشكل التالي: 


TEUELOR Namco" WIL o FIO 


SLyYLe6 ="{SlaticResource darkstyLe}" Content = "BuUtLoNn 2" 
HOR LEONE LALLGHmMORTS LETE" MITOSIS OI UL EL FORLCCISOSTIO 


والناتج: 


iB Window1 


الصورة 16. 18. نتائج التنفين. 


11. 2. اشتقاق ٥ار‏ ون اخر 


لعمل 1٥‏ را5 جديد يتم أخذه من 1٥‏ را5 قديم يمكن كتابة تعريفه بالشكل التالي: 


XAML ا‎ 


<Style x:Key ="darkredstyle" BasedOn = "{StaticResource darkstyle}"> 


mE mm mm 2 |‏ 
11. 3. تصمیم عارا؟ باستخدام ٣٥ع‏ ع٣‏ 
کک آل ۳6۲۹| من تجدند حالات اداد مر نط تحدت مرور الماوين او رة :قك 


لتلوين مربع نص بلون مختلف عند حصوله على التحديد نكتب 1٥‏ ۷ا5 بالشكل التالي: 
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<Window. Resources> 
<Style x:Key ="txtstyle" TargetType = "{x:Type TextLBox}"> 
<Setter Property = "Background" Value = "White"/> 


<Style.Triggers> 


<Trigger Property = "[sFocused" Value = "True"> 
<Setter Property = "Background" Value = "Yellow"/> 
C/TEITGOGErS 
<JSEVLE. TEIGGEES> 
< SETLeS 


</Window. Resources> 


والناتج لمربع النص الذي عليه التحديد: B1 Windowl‏ 


الصورة 16. 19. نتائج التنفين. 
تر فا 


متال منقول من 2008 مCS"2۲ »۴r0‏ اضافة 
عناصر للقائمة بها مجموعة من ال كعالا5 ومن ثم 


تحدید 1€ Sty‏ زر الامر ليحتوي على آحدها بالشكل التالي مثلا: 


BUDLICG oaAFLISL CIASS MaEINWINOOW ; WINnOowW 
public MainWindow () 
ا‎ 
InitiallizeComponent (); 
// AU ilLéms Lo Ol LIS Bog. 
LSLCSLVLES. ILEMS. AGO (TILLTCSEYVLET; 
lIstStyles. Items.Add ("GreenStyle"); 
lstStyles. Items . Add ("MouseOverStyle"); 
} 
protected void comboStyles_Changed(object sender, RoutedEventArgs args) 
| 


// Get Ele selected stvylé hime From the IISE bot. 
System.Windows.SLtyle currStyle = (System.Windows.Style) 
FindResource(lstStyles.SelectedValue) ; 

// GEE thé SCV le OC the bDUlLoORn. Tobe. 
this.btnMouseOverStyle.SLtyle = currStyle; 
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VB.NET 


ParlIlal PUGILIIG CLASS MalnWIndow 
Inherits Window 
Public Sub New () 
InitlializeComponent () 
" Ad LEMS LO OE LIST Dox. 
IstStyles.Items.AQdd("TIltStyle™") 
IstStyles. Items.Add ("GreenStyle™) 
lstStyles. lItems.Add ("MouseOverStyle™"”) 
ENC Sub 
Protected Sub comboStyles_Changed (ByVal sender As Object, ByVal args As 
RoutedEventArgs) 
' Get the selected style name from the list box. 
Dim currStyle As System.Windows.Style = 
DirectCast (FindResource(lstStyles.SelectedValue), System.Windows.Style) 
' Set the style of the button type. 
Me.btnMouseOverStyle.Style = currStyle 
End Sub 
ENO UIE 


PUDLLC CAEEIAL CLASS MaAIOWNINOOW ¢ WINGO 


public MainWindonw () 

{ 
InitiallizeComponent () ; 
7 AQ TtEems to oF List box. 
LSLCSEVLSESLCEMS AQT FELLCSTCY LE, 
lIstStyles. lItems.Add ("GreenStyle"); 
lIstStyles. lItems.Add ("MouseOverStyle"); 


} 
protected void comboStyles_Changed(object sender, RoutedEventArgs args) 


{ 
// Get the selected style name from the list box. 
System.Windows.Style currStyle = (System.Windows.Style) 
FindResource(lstStyles.SelectedValue); 
7 SEL thE Sole OT CRE Dlo CD. 
this.btnMouseOverStyle.Style = currStyle; 
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VB.NET 


PETEIAL PUDIIC CLASS Mai1nWIndowW 
Inherits Window 
Public Sub New () 
InitializeComponent () 
" AU LEMS TO OU LIST Dox. 
1IstStyles.Items.Add("TIltStyle™) 
lIstStyles.lItems.Add ("GreenStyle™) 
lIstStyles. lItems.Add ("MouseOverStyle"™) 
ENC SUE 
Protected Sub comboStyles_Changed (ByVal sender As Object, ByVal args As 
RoutedEventArgs) 
' Get the selected style name from the list box. 
Dim currStyle As System.Windows.Style = 
DirectCast (FindResource(lstStyles.SelectedValue), System.Windows.Style) 
' Set the style of the button type. 
Me.btnMouseOverStyle.Style = currStyle 
End Sub 
EN. CIRE 


= س 


lm StylesAtRuntime 


Please select a style for the 
button on the left. 


الصورة 16. 20. نتائج التنفين. 


Templates JI .12 


تستخدم ايضا لتغيير خصائص الأدوات» ولكن الفارق بينها وبين كه ال5 انها تستطيع ان 
تلغى بالكامل الطبيعة الاساسية للأداة » مثلا هذه ال كعاaام۲rem:‏ 
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<Grid. Resources> 
<== A SImGple template TOF a4. TOUNd Bulltonl IOFE IEMs In TRIS GEIG => 
<ControlTemplate x:Key ="roundButtonTemplate" TargetType ="{x:Type 
EULLONE 
GELS 
<Ellipse Name ="OuterRing" Width ="7/5" Heilght ="75" Fill 


="DarkGreen"/> 

<Ellipse Name ="InnerRing" Width ="60" Height ="60" Fill 
="MintCream"/> 

<ContentPresenter HorizontalAlignment="Center" 
VerticalAlignment="Center"/> 

< JGEIQA> 
CCR TOILTEC IES 

</Grid.Resources> 


الان توكتك تخدندها زر أمر ما 


<Button Name ="myButton" Foreground ="Black" FontSize ="20" FontWeight ="Bold" 
Template ="{StaticResource roundButtonTemplate}"™ 

CLILCOE SFM EUELON CLLGCETDCIIECR! 

«JEULEONS 


e 


والناتج: 


lB 1 ControlTemplates 


الصورة 16. 21. نتائج التنفين. 
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3D WPF .13 


بعد ان تعلمنا كل ما نحتاج إليه للبدء بالغوص في عالم ۷۴٣‏ من وجهة نظر ثنائية 
الابعاد» ستنحاول في هذا الدرس التعرف على اساسيات العالم الثلاثي الأبعاد في W۲۴۴‏ او ما يسمى 


Avalon 4 


يختلف عالم ال 30 كثيرا عن عالم ال 20ء حيث تحتاج لبعض مفاهيم الهندسة الفراغية أولا ومن 
ثم معرفة بعض المفاهيم مثل ۲۲١[٥٣10٥١‏ وخلافه » وبما اننا لن نتخصص هنا في مجال ال 


6۲86 يمكتنك اليدء بمعرفة ما تريد من خلال هذه المقدمة السريعة : 


رابط گے 
http://developer.nvidia.com/docs/|O/11278/Intro-to-Graphics.pdf‏ 
الآن ستبدا مع WPF‏ 


لو كانت لديك بعض الخبرة مع علم ال ك٤أأم6۲3‏ فأنت تدرك ان الهرم - الشكل الاساسي دوما 
في عالم 30 والتطبيق الذي يشابه ك|0۲ N‏ هاأم١۳‏ في عالم ال - كعأأمةا6 ما هو إلا مجموعة من 
الخطوط بين نقاط مختلفة»ء او تستطيع القول انها مجموعة من المثلثات تمثل عدد أوجه الهرم - 
3 اوجه - ولكنك تحتاج لفهم نظريات ال ١0|أ٣©[١۲۲‏ لتحديد الابعاد والقياسات المناسبة لرسم 
هذه المتلتات في حالة ال 31 بحيث تظهر بصورة طبيعية. 

بداية سنقوم باستيراد الفثئة (d1430ءM‏ .en.Nindows.Med1aاtاSys‏ وهى المختصة 


0 


تالتعا هذا العالى. 
. م 


Cf 
using System.Windows.Media.Medlia3D; 


VB.NET 
Imports System.Windows.Media.Medla3D; 


سنحتاج اولا لتعريف ۷18۷0۲۲30 والذي يمكننا من تحديد مجال الرؤية ونوع الكاميرا وخلافه» 


بالشكل التالي مثلا: 
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<Viewport3D Name="mainViewport" ClipToBounds="True"™> 
<Vilewport3D.Camera> 
<PerspectiveCamera 
FarPlaneDistance="100" 
HOOLCUITOCLE LOSS el m8 
UGDIFECLILoON= U IU" 
NearPlaneDistance="1" 
POGILIORST II IU 
FieldOfView="70" /> 
</Viewport3D.Camera> 
<ModelVisual 3D> 
ModE lIVI1SUaALS3D. Content > 
CDIFECLIORNALLLGRE 


Color="white"™ 
DIFC LOST I 1° ر‎ 
</ModelVisual3D.Content> 
J MolS1lVISUALSDS 
</Viewport3D> 


MeshGeometry3D triangleMesh = new MeshGeometry3D () ; 
FOINLCLE DOLNLO = ROT POIDNESDIU;, O; OF 
PFOINTESD. DOLNLCL = HER POLNLSD(Sg Op OF 
EOIN E Boe new Point3D (O0, O, D5); 
EELaAnNGLEMEeESh. POSITIONS .AQO (pO1LNRTEO, 
trliangleMesh.Poslitions.Add (point1l); 
LEIaNG LEMESTHFOSTITCIONGSLAOOBDOINEAN, 
trliangleMesh.TrianglelIndices.Add (0); 
trliangleMesh.TrianglelIndices.Add(2); 
trliangleMesh. TrianglelIlndlices.Add (1) ; 
Vector3D normal = new Vector3D (O0, 1, 0); 
LELanglLeMesh.NOEMaALS:Add {normal}; 
trliangleMesh.Normals. Add (normal) ; 
trliangleMesh.Normals. Add (normal) ; 
Material material = new DiffuseMaterlal ( 
new Soli1idColorBrush (Colors.DarkKhakil)); 
GeometryModel3D triangleModel = new GeometryMode l1 3D ( 
triangleMesh, material); 
ModelVisual3D model = new ModelVisual3D (); 
model.Content = triangleModel; 
this.malnVliewport.Children. Add (model); 
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VB.NET 


Dim trlangleMesh As New MeshGeometry3D () 
Dim point0 As New Point3D(0, O, 0) 
UIM pOLNLL A8 WEY POINLCID(S; O; 0O) 
Dim point2 As New POoOint3D (O0, O, 5) 
LELaANGLEMESH.POSLTLONSLAOO(BOILNREO) 
trliangleMesh.Positions.Add (point1) 
LELARGLEMESNH;POSILCILORS.AdA(DOINEZ ) 
trliangleMesh. Trianglelndices. Add (0 
trliangleMesh. Trianglelndices. Add (2 
trliangleMesh. Trianglelndices. Add (1 
Dim normal As New Vector3D (0, 1, 0 
trliangleMesh.Normals. Add (normal) 
trliangleMesh.Normals. Add (normal) 
triangleMesh.Normals.Add (normal ) 
Dim material As Material = New DiffuseMaterial (New 
SOLLACOLOEEBTFUSRN(COLOFEFS.DAEKERaAEL)) 

Dim trlangleModel As New GeometryModel3D (triangleMesh, materlal) 
Dim model As New ModelVi1sual3D () 

model.Content = triangleMode lL 
Me.mainViewport.Children. Add (model) 


) 
) 
) 
) 


والناتج سيكون: 


الصورة 16. 22. نتائج التنفين. 


اما لرسم المكعب: 
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private Model3DGroup CreateTriangleModel (Point3D p0, Point3D pl, Point3D p2) { 
MeshGeometry3D mesh = new MeshGeometry3D () ; 

MeSH. POSITIONS .AIA(BO N, mesh; POSITIONS. AQA(BpLJF mesh. PFOSILLIONAS.AQGA(PA 
mesh. Trianglelndices.Add (0); 

mesh. Trianglelndices.Add (1); 

mesh. Trianglelndices.Add(2); 

Vector3D normal = CalculateNormal{pÛ;, Pl; P2)? 

mesh.Normals.Add (normal) ; 

mesh.Normals.Add (normal) ; 

mesh.Normals.Add (normal) ; 

Material material = new DiffuseMaterial (new 

SOLIOCoOLOEEEUEN (COLOFS DA FEKHAKTL 
GeometryModel3D model = new GeometryModel3D (mesh, materlal); 
Model3DGroup group = new Model3DGroup () ; 

GEOUSB :CALLOEER ACG (MOCEL 
EELUEH. GEOUD; 

BEIUALE VECO DD CALCULA LCENGOEMaAL (FOILED GU, FOINLCSD Bl, BONS SENN 
VECEOTD VU = Eg VOC OTP UGK = SUX, Dlo 2 GOT, Ola = GOS, 
VEOCEOESD UL = NEY VECO DDS = BIK, Bll = Ol, Bla = BIL) 
FGlLUEN VOCLOFCID.CTOSSEPEOQUCT VO, CL; 


4 


VB.NET 


Private Function CreateTriangleModel (ByVal p0 As Point3D, ByVal p1 As Point3D, 
ByVal p2 As Point3D) As Model 3DGroup 
Dim mesh As New MeshGeometry3D () 
mesh.Positlions. Add (p0) 
MES. POSIELONS.AIA(BL) 
MESH.POSILCLONS:AII (6Z) 
mesh. Trianglelndices. Add (0) 
mesh. Trianglelndices.Add (1) 
mesh. Trianglelndices.Add (2) 
Dim normal As Vector3D = CalculateNormal (pO, pl, 62) 
mesh.Normals.Add (normal) 
mesh.Normals. Add (normal) 
mesh.Normals.Add (normal) 
Dim material As Material = New DiffuseMaterlal (New 
SOLLOCOLOEBEUSH(COLOES.DSFEFKKHSKT)) 
Dim model As New GeometryModel3D (mesh, material) 
Dim group As New Model3DGroup () 
gqroup.Children. Add (model) 
ELUTED GEOUD 
ENG. FURCLELOoNn 
PrEIvate Function CalCuLalEeNOormal (BYVaLl 6U As8 POilnt3D, BVValLl pl As8 POINLSD, 
ByVal p2 As Point3D) As Vector3D 
DIR VO A NE VECLOTID(BLS = DO, DOLLY = BUT, Dlsa =4 BDO.) 
DIM VL BS NEE VECO. = Gl, OAT = Ol Y, Dl. 3 BI.) 
RELUIM VECIOESD.CEOSSPEOOUCLE (VU, TL) 
ENC FuUnNCEILon 
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وفي زر الأمر: 


MeshGeometry3D triangleMesh 
PoOINESD GOLINE 
EOE DD DOLE 
POILNLSE GOLINE 
trliangleMesh 


= new MeshGeometry3D (); 
= new Point3D (0, O0, 0O0); 
= ‘HEW  POINESD(S, UO, UP; 

ie POINCSD(O, O, SF 

POSITIONS LAOOpOILNEO) 
LELanNGLEMESSHN.POSLTCLONS AOU BOLRALCLY; 
EELANGTLEMESB.POSILCIONS.AGA(GOLATEZ PD; 
trliangleMesh.TriangleIndices. Add (0) 
trliangleMesh.Trianglelndices.Add (2); 
trliangleMesh.Trianglelndices.Add (1); 
Vector3D normal = new Vector3D (O0, 1, 0); 
trliangleMesh.Normals.Add (normal) ; 
trliangleMesh.Normals. Add (normal) ; 
trliangleMesh.Normals.Add (normal) ; 
Material material = new DiffuseMaterlal ( 
HEW . SOLLOCOLOEFBFUS(COLOES. DACKEhaAKT YS; 
GeometryModel3D triangleModel = new GeometryMode l1 3D ( 
trliangleMesh, material); 

ModelVisual3D model = new ModelVisual3D (); 
model.Content = trliangleModel; 
CRIS .MaAaLNVLEWGOET:COALLGAFEN.AIT (MOE L); 


4 


VB.NET 


trliangleMesh As New MeshGeometry3D () 


DIM 


0, 


0, 


polintO0 As New Point3D (0, 
Dim poilnitl As New POINT3D(5, 
Dim polilntz AS New POInNCS3D(O, 


POSILCIONS.AIOGOLNEL 
.POSLELONS LAOT(BDOILRNETL 
„ FOSIELONS:ACTPOILDEZ 


trliangleMesh 
tLrliangleMesh 
trliangleMesh 


trliangleMesh. 
trliangleMesh.TrianglelIndices. ( 

trliangleMesh.TrianglelIndices. ( 

Dim normal As New Vector3D (0, 1l, 
trliangleMesh.Normals.Add (normal ) 
trliangleMesh.Normals.Add (normal) 
triangleMesh.Normals.Add (normal ) 

Dim material As Material = New DiffuseMaterlal (New 
SOLLOUCOLOFBEUSN (COLOES.DaFKEhHaAKIL)) 

Dim triangleModel As New GeometryModel3D (triangleMesh, material) 
Dim model As New ModelVisual3D () 

model.Content = trliangleMode lL 
Me.mainViewport.Children.Add (model) 


0) 
5 
) 
) 
) 
Trianglelndices. Add (0 
2 
1 
0 


e 


والناتج: 
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الباب السادس عشر WPF‏ 


FF Wîindow1 


الصورة 6. 23. نتائج التنفين. 


يمكنك المواصلةه في هذه التطبيقات من المصدر الذي استقيت منه محتويات هذا الدرس على 
الرابط التالي: 
رابط ھی 

http://www.kindohm.com/technical/wpf3dtutorial. hM 
ويمكنك المتابعة للاطلاع على كيفية عمل برنامج يمكنك من التحكم في الكاميرا ليكون الناتج‎ 
بالشكل التالي:‎ 
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الباب السادس عشر WPF‏ 


E Tutaorial3p 


Lamera X Position: 


الصورة 16. 24. التحكم في وضعية الكاميرا و تغيير الزوايا. 
او رسم ارضیات لتکون بالشكکل التالي: 


E Tuıtorial3D 


Lamera X Position: 


Camera ¥ Position: 


الصورة 16. 25. التحكم في وضعية الكاميرا و تخيير الزوايا. 
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اللاب السادس عشر WPF‏ 


XNA plle „14 


إذا كنت قد جربت التعامل مع برمجة الألعاب أو أي شيء له علاقة بالعالم الثلاثي الأبعاد 
فآنت قد جربت التعامل مع 01۲۴٤30‏ أو مع أ6١€م0‏ آو غيرهم من المكتبات الخاصة بالتعامل 
مع العالم الثلاثي الأبعاد » لذا لن يكون التعريف صعباً لك لو قلت لك أن ال ۸۸× هي مجموعة 
جديدة من ال ١ا۸۴‏ مبنية على 01۲8٤“‏ تهدف إلى تسهيل التعامل مع مکتبات ال 01۲۴٥۸‏ حيث تم 
تجهيز عدد كبير من الدوال والمهام لتنفين بعض العمليات التي كان تنفيذها يآخذ الكثير من 


الحهد. 


XNA Jı‏ اختصار lجloة DirectX Next Generation Architecture:‏ « محانىة ولكتها 
هي ر للح وى م ر 
تشترط نسخة ۴×۲8 من الفيجوال ستوديو لتعمل » لاحقاً سيكون بامكانك انشاء مشروع ×N۸‏ 


بسهولة » قم بتحميل 4ل[× من الرابط التالي: 
لو كنت تحاول برمحة لعبة يسيطة يمكنك الاستفادة من هذا الرابط: 


رابط ھے 
http://www.c-sharpcorner.com/ UploadFIle/maqold/XNAlIntro04192007233237PM/XNAIntro.aspX‏ 


وسيكون ناتج تجربتك بالشكل التالي: 
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اباب السادس عشر WPF‏ 


الآن اذا ڪنت مبرمج ٤×‏ 01۲6 سابق فأنت بالطبع ادرڪت الفارق ... ما لو لم تکن ڪذلڪ فحاو ل 


البرمجة باستخدام ×أ 01۲6٥‏ لفترة ثم جرب الفارق... 


Microsoft Expression Studio .15 
Microsoft Expression Web .1.15 


يتيح لك هذا البرنامج تصميم صفحاتڪ بطريقة مميزة ويساعدك على عمل صفحتڪ 


بآي صيغة موجودة متثل . )5× ,)× ,55 ۸1M),‏ الواجهة الرئيسية له بالشكل التالي: 


2 iade Group CLE Ahmed Desig Three hure - Copy andehiml] - Micrceso#t Eapreszian Webi 
1 Fie Edît Wim j[reert Fc Tools Tgkle te ata View Task Fanes inde Help 


Trebuchet MS, Verdana, Lucid: Î 


Tag Propartina “CSS Propartisi™, *% ITTUDE GROUP euey Ehireg about at, -, انت ا‎ 


Appl kyle “Manage Slat, *# 


2 اا‎ 3 1 Hg Hemw Stele... E 


All Aitach Stele Sheet... 


Team Member jer Tethrical Skills | Arties Sample of Projects Award Arel Positions‏ اله 
Belert ESS style to apply.‏ : 


الصورة 16. 26. الواجهة الرئيسية لبرنامج W€] Jı‏ ¬0ټExpressİi0.‏ 
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اللاب السادس عشر WPF‏ 


يمكنك استخدام اي من الادوات التي تجدها لديك لتصميم صفحتك والتعديل على الخصائص › 
هناك ايضا مدقق ا11۷ لمراقبة الأخطاء» هناك خصائص لتسهيل التعامل مع ال عارك متلا »› 
ليس هذا فقط بل يتيح لك البرنامج البرمجة من خلاله سواء من خلال ٤".مAs‏ آو من 
خلال م٣‏ م. 


للمز يد يمكتنك البدء من هنا 


رابط قي 
http://www.microsoft.com/expression/features/default.aspx?key=web‏ 


Microsoft Expression Design .2.15‏ 
يقدم لك هذا البرنامج حلولا مميزة لتسهيل تركيب الصور والرسوميات وخلافه » الواجهة 


الرئيسية له بالشكل التالي: 
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اللاب السادس عضر 


SEET Tt" 


E ¥ Crmarlsad Cri 


a 


E " CrrixpH 


WM 3 Creare 


WM F* Logi Mêriap 


Lî 


Mo? loi 


3 e r ea 1 FH 


n س‎ 
e` e 


WM = iaae amit mim 


Bm YF TIF 


E 


E 


٣ 
ت‎ e 
for your Ol 


Fabrik is spe 
widgets that aim t 


WPF 


| dû Hecra Experaaien Deuagn 2 


الصورة 16. 27. الواجهة الرئيسية لبرنامج .ExpressIi0¬ D€SIgN Jı‏ 
المزيد يمكنك معرفته من هنا 


رابط گے 


Microsoft Expression Media .3 .15 


نیح لك هذا البرنامج تعديل وتركيب وتكوين آفلامك المختلفة » هذه صورة للواجهة: 


http://www.microsoft.com/expression/features/default.aspx?key=design 
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الباب السادس عشسر WPF‏ 


ga Mpeg gera Peter [Har e Higley + Fn] ~ Maret Cages pa ا ا س‎ 
Ef E Fr jee bien Mie inde rp eip 


BI E™ (Poem t-R # 8 Û4-| ê- û + E*d*ضÈ‎ + a E2 "` ا‎ 


: lk Erin _ghخ11‎ Lî a KD mk | Lî | FÊ FF {OEE 
Fiera |1| ۰ : ١ 


س ا E‏ 


= 
F4 3 
E 3 . 
I E CG ua a 


۳ 
ٍ 
ک2 
بی 


E 
1 


Lala KL ME | Helî FB 


Ergun a lL] 


5 


الصورة 16. 28. الواجهة الرئيسية لبرنامج .Expressi0¬ D€SIgN Jı‏ 
والمزيد يمكتنك معرفته من هنا 


رابط ھے 


http://www.microsoft.com/expression/features/default.aspx?key=media 


Microsoft Expression Encoder .4.15‏ 
يتيح لك السماح للزائر بالتفاعل مع عروضك » يشكل البرنامج الآساسي لادارة ٣۷€|أ؟S‏ 
اعا التقنية الجديدة من مايكروسوفت والمشابهة لتقنية 5۸ا۴ من aأك۴ N٤٣0٣"‏ سابقا ومن 


.اıلNاح‎ Adobe 
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اللاب السادس عشر WPF‏ 


الواجهة الرئيسية للبرتامج: 


2| Steer Yade - ciri Epes Enogder 2 l8 


Earl Ti 


laa Î maa Ftp" Be area Raa es 
arka Û LETIF FF 


Largs 


Mierosoft’ EEE 


Silverlight ا‎ 


FY gilia 
Egil Tr klr" eger 
بقارا کرت فر‎ 


2" Hermes, Hl pear 


mrTESEY | 


rg Lanham TF lL 


an arg 


Kae a Ires EF Erragrd 


الصورة 16. 29. الواجهة الرئيسية لبرنامج Expression ENCOd@F Jı‏ . 
يمكتنك اليدء يمزيد من التفصيل هنا 


رابط گے 
http://www.microsoft.com/expression/features/default.aspx?key=encoder‏ 


Microsoft Expression Blend .5 .15‏ 
لتصميم واجهات برنامجك المختلفة» حيث يوفر لك وسائل متعددة للتصميم» ستنحاول 
معرفة المزيد عنه بتفصيل في هذا الدرس... 
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الباب السادس عشر WPF‏ 


ستحاول الآن عمل تطبيق بسيط مj‏ خٺıإٺJı Expression Blend‏ ãم‏ تله أو هن الروانط 
السابقة» قم بتشغيله ومن WPF Application (*.exe) pû jag New Project رlتخا pû‏ بالشکل 


التالي: 


New Project 
select a project type 


a 


Silverlight 1 


Site 


Name UntitledPraject3 
Location CMUsers Ahmed Documents Expression Expression Blend Projects Browse... 


Language Vbual L# ي‎ 


Target «NET Framework ¥3.5 ا‎ 


الصورة 16. 29. بناء مشروع جديد في ExpressI0^ B|€^d JI‏ 
يمكنك اختيار اللغة التي تريد العمل عليها وال )اW0‏ هه٣۴‏ اضافة للاسم ومكان التخزين 


بالطبع. 


من ۷/ieW‏ اختر Active Document VieW‏ ومن ثم اختر الوضع ام5 لتتمکن من عرض ا۸۷N×‏ و 


العرض العادي في نفس الوقت بالشكل التالي: 
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اللاب السادس عشر WPF‏ 


Î UnmtedPrajecttsln - Microsift Enpression Herd 2 
Fe Eî ee Gel Fok To indo HE 

E E FE irae uml Frofert E *#  Fropertles iF XH Reomncey WF 
F Tigger Fas 
+ Ever Fı WE Sairlon UnttiedFeoeaF” [i pirhecitlsl 
F PU LUetitedPTcterl3 


5 
۳ HelprEniEes 


* DÎ Appi 
۳ eT hyirêîmırs 


مقن تس e‏ 


' Otlert and Timeline 


i erê 


7T & reda 
E LegmartHragê 


Hide "gE" Heights "AQ" 


Grid xıNamea™ 
HE 


1 ت TaN Mh‏ س شش 
Calder... E Ferturer FE Herat: f Untaled FE Archer. EN + MED WIE: T4 PM‏ 


الصورة 16. 30. الواجهة الرئيسية ئبرنامج Expression B|€Nd Jı‏ 
على جانب الشاشة » ستجد كل الأدوات التي تحتاج إليها للتصميم سواء القلم والفرشاة وخلافه › 


أو أزرار الأوامر ومربعات النصوص وخلافه من الأدوات التي ستستخدمها في برنامجك › ايضا 
يمكنك الضغط على آخر عناصر القائمة ليستعرض لك جميع الأدوات بالشكل التالي مثلا: 
Aixet Library‏ 
Kearch x ® Galley Details‏ 
Local Styles Media Lustom Lontrols Recent‏ 
I O AccessTet d” CherkBox {Decorator‏ 


{# AdormerDecorator . 1 DockPanel 


ر ر 
u: Boarder {¥  ComboBozxltem a DocumentPageYiewe‏ 
| س 


Al O ا‎ 
= Bullet Decorator ContentControl 2 DocumentReference 


٣ 3 
FI ContentPresenter E DBocumentViewer 


0 ا 
Control 7 EIRpSE‏ #{ 


الصورة 16. 31. الواجهة الرئيسية لبرنامج Expression B|€Nd Jı‏ 
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الباب السادس عشر WPF‏ 


خلال عملياتڪ في الرسم » ستجد لأي اداة مجموعة a ceh Ca LS E‏ 
التحكم بالمظهر و خلافه: 
E # Properties f 3#‏ 


Name Window 


Type Window 


IEE FX ub 


Border Brnuth Ro barzh 


Foreground 


Opacityllask No brush 


Color resmUrcEes 


ا 


SS : 


' Appearance 
Opacîly 10# 
VEibity Visible 
AllmwsTransparenicy 
BarderThicimess #* û 
# Û 


WindowShyle SingleBorderf#indow' ا‎ 


nd 40 
Heigl 480 


HorizartalAl izprinrvett 


الصورة 16. 32. نافذة الخصائص ExpressiO0¬ B|€^d J|‏ 
اللآأن كتطبيق سريع » قم باضافة C041١ 735S‏ وقم بتحديد ابعاده » هذا هو ال 5 C١173‏ الذي ستنضع 
فيه صورة خاصة بنا ونطبق عليها بعض التآثيرات: 


XAML ا‎ 


Can VaS> 
<Canvas x:Name="MalinImageCanvas" Canvas.Left="40" Canvas. Top="120"> 


الآن قم باضافة اe1ع»ء1٤d1aءMe‏ ولنضع فيه صورة مثلا - أو قم بوضع صورة مباشرة - › 


سيكون ناتج )۸۷× بالشكل التالي: 


<MediaElement x:Name="MainImage" Source="c:/example/futex. jpg" Width="300" 


HelgGilt=" 300" >» 
%/MedlaE laments 
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اللاب السادس عسشر WPF‏ 


والآن سنقوم بتطبيق بعض التأثيرات على ال ٤٥31725‏ حيث نطبق عملية الميل من خلال 


الخصائص » سيكون ناتج اأ۸۷× بالشكل التالي: 


<Canvas. RenderTransform> 
CITARSTOEMNSEOUGS 
<SkewTransform x:Name="MailnSkewTransform" Angle¥="-19" Anglex="0" 
CenterX="0" CenterY="0"/> 


<ScaleTransform x:Name="MainScaleTransform" ScaleY¥="1" ScaleXx = "1" 
CenterX="0" CenterY¥="0"/> 
</TEANSTOEMGEOUDS 
</Canvas.RenderTransform> 
AO E 


الآن قم بالضغط على ۳5 لتجربة العرض والذي سيكون بالشكل التالي: 


الصورة 16. 33. نتائج التنفين. 

سنحاول تطبيق نظرية الظل للصورة أيضا » يمكنك تطبيقها مباشرة من خصائص الفرشاة» أو في 
تجربتنا هنا سنضع صورتين على بعضهما › لذا سنقوم بعمل )K417235S‏ ونضع فيه الصورة أيضا 
ولكن مع زوايا ميل مختلفة هذه المرة بحيث تحاذي اطراف الصورة » سيكون ناتج ا۸۷× بالشكل 
التالى: 


0 
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الباب السادس عشر WPF‏ 


<Canvas x:Name="ReflectlionlImageCanvas" Canvas.Left="260" Canvas. Top="640"> 
<MediaElement x:Name="ReflImage" Source="c:/example/futex. jpg" Width="300" 
Height="300" Volume="0"> 
</MediaElement> 
<Canvas. RenderTransform> 
STEARNS EOENIGEOUGS 
<SkewTransform x:Name="ReflectionSkewTransform" AngleY¥="19" 
AngleXx="-41" CenterXx="0" CenterY¥="0" /> 
<ScaleTransform x:Name="ReflectlionScaleTransform" ScaleY¥="-1" 
ScaleXx="1" CenterXx="0" CenterY¥="0" /> 
</TransformGroup> 
</Canvas.RenderTransform> 
</Canvas> 


و سیکون الناتج للصو رة بالشكل التالي: 


E REST 


الصورة 16. 34. نتائج التنفين. 
آخر نقطة سنتعامل معها هي اضافة الشفافية لصورة الظل » من ضمن الخصائص أيضا › لذا ستجد 


ناتج ال )۸۸× في النهاية بالشكل التالي: 
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اللاب السادس عشر WPF‏ 


<Canvas x:Name="ReflectlionlImageCanvas" Canvas.Left="260" Canvas. Top="640"> 
<MediaElement x:Name="ReflImage" Source="c:/example/futex. jpg" Width="300" 
Height="300" Volume="0"> 
</MediaElement> 
<Canvas. RenderTransform> 
STEARNS EOENGEOUGS 
<SkewTransform x:Name="ReflectionSkewTransform" AngleY¥="19" 
AngleXx="-41" CenterXx="0" CenterY¥="0" /> 
<ScaleTransform x:Name="ReflectilionScaleTransform" ScaleY¥="-1" 
ScaleXx="1" CenterXx="0" CenterY¥="0" /> 
</TransformGroup> 
<JCanvaS;RenderTEanSsformS 
CCAR VSS, OGOCIC TMA SKS 
<SLUINEéAaAFGEaQLEnNntBEUSh SlaFTCPOLNL="0.5,0,0" EndPOLRNE=FO. SL. U> 
<GradientStop Offset="0.345" Color="#00000000" 
x:Name="ReflGradientStopl" /> 
<GradientStop Offset="1.,.0" Color="F#FCC000000™ 
x:Name="ReflGradientStop2" /> 
</LinearGradientBrush> 
</Canvas.OpacityMask> 
CCA 


قم بضبط بعض اعدادات ال اعا وال مp٥'ا‏ یدو یا او من الكود لحجعل صورة الظل منطبقة على 


lk] Window1 


الصورة 16. 35. نتائج التنفين. 
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اللاب السادس عشر WPF‏ 


الكود الكامل اAV1×:‏ 


TUCARA 
<Canvas x:Name="MainlImageCanvas" Canvas.Left="40" Canvas. Top="120"> 


<MediaElement x:Name="MainImage" Source="c:/example/FUTEX.JPG"™ 
Width="300" Height="300" > 
</MediaElement> 
<CanvaS:RenNGEFTEANSTOFMS 
XTEARNSEOIMGEOUDS 
<SkewTransform x:Name="MainSkewTransform" AngleY¥="-19" 
AngleX="0" CenterX="0" CenterY¥="0"/> 
<ScaleTransform x:Name="MainScaleTransform" ScaleY¥="1" ScaleX = 
"1" CenterXx="0" CenterY¥="0"/> 
<JTEANSTOENCEOUDS 
CCE, RENOIEFTEONS FOES 
CANT 
<Canvas x:Name="ReflectlionlImageCanvas" Canvas.Left="267" Canvas. Top="645"> 
<MediaElement x:Name="ReflImage" Source="c:/example/futex. jpg" 
Width="300" Height="300" Volume="(0"> 
</MediaElement> 
<Canvas. RenderTransform> 
CTTANSTOEMGEOUDS 
<SkewTransform x:Name="ReflectionSkewTransform" AngleY¥="19" 
AngleXx="-41" CenterX="0" CenterY¥="0" /> 
<ScaleTransform x:Name="ReflectlionScaleTransform" ScaleY¥="-1" 
ScaleXx="1" CenterXx="0" CenterY¥="0" /> 
</TEANSEOEMGEOUB> 
LO o Cole N A eA 
<UaNVAS , OGACILLCVMESKS 
CHINEAECESQOLENCEBEUSD SESE LPOILNL= TUS UU" ENOPOINL=S TO, lL, 
<GradientStop Offset="0.345" Color="#00000000" 
x:Name="ReflGradientStopl1l" /> 
GFadIEentStob Ol. 0" CoOloGESTFCCOOO0000™ 
x:Name="ReflGradientStop2" /> 
</LinearGradientBrush> 
IS ONT COS e 
</Canvas> 
/CaRVASS 


تنس ان "e٣‏ eا٤هiلع‌M‏ یمکن ان تکون اي شیء» لذا جرب متلا وضع فيدیو وستجد ان نفس 


اتر يتطق فله تجاه 


طبعا يمكنك نقل الكود كما هو إلى الفيحجوال ستوديو وسيعمل ينتفس الصورة. 
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قبل الان : اح ان اذكرك بانکك كرمج تست .مطاشا يمعرفة انكر عن هذا العالم غانه 
Microsoft Expression‏ فهو موجه اصلا للمصممين » كل ما يهمك هو التعامل مع ال XANL‏ 


الناتحة فقط. 
لتعلم كل ما تريد عن هذه المجموعه يمكنك البدء من هتا 


رابط ھے 
http://expression.microsoft.com/en-us/CC136522.aspX‏ 
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قواعد السانات 
ADO.net‏ 


الباب السابع عشر قواعد lليlنlٽ ADO.net‏ 


Active Data Objزect.Net Jı‏ او ما تعرف اختصارا باسم ۸00.٥‏ هى امتداد للنسخة 
القديمة ۸00 التي كانت موجودة في اصدارات فيجوال پيسڪ 6 من مایکروسوفت » وهی امتداد 
ايضا لعالم مزودات البيانات او ۲۲0۷1008۲١‏ هاه( التى مرت بمراحل تطور عديدة وشهدت 


العديد من التقنيات مثل ۸00 ,0۸0 . 


وعلى عكس النسخة القديمة ۸00 التى كانت مخصصة لفتح اتصال بين قاعدة البيانات والبرنامج 
۱ الخاد | ADO.net jùla Client/Server‏ صت jaوıgة‏ ıuخة+ãeı Disconnected‏ 
و بیں 9 1 مرو : 


بحيث لن تصبح مضطرا للاتصال دائماً بقاعدة البيانات . 
هناك فروقات أآخرى بين التقنيتين هذا موجزها: 

- الدعم الكامل لا¥× . 

- زيادة أنواع البيانات المعتمدة والدوال المستخدمة. 

- زيادة السرعهة. 

- اتها اصبحت "a" 2g€d c٥٥‏ بالكامل. 

يمكنك ااطلاع على مزيد من التفاصيل حول الفروقات هنا 


رابیط گے 


http://msdn.microsoft.com/en-us/library/904fck4k(VS.71).aspX 
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ADO.net JI pIlaختسlب‎ İaڊلl‎ „1 


قف کل ها ليك هر اسرد امات ااضا ها » تجدفا جع تحت ات 
Data‏ .emاys‏ » بعدها سيكون عليك تقرير فيما إذا كنت ترغب في العمل من خلال الوضع 
Disconnected وî Connected‏ » في الحالة الآأولى ستكون على اتصال دائم بقاعدة البيانات اما 
الحالة الثانية فستتصل على مراحل لتجلب البيانات او لتقوم ببعض التعديلات الجماعية › في بداية 


ا لن نتعامل سوی مع Connected‏ هيما ستعود لاحقا للو ضع الآخر. 


ADO.net Data Provider JI ٽliوڪy‎ .2 


Connection -1‏ : يمكتنك من انشاء اتصالك بقاعدة البيانات. 

d -2‏ 2ت : تمكنك من تنفين جملة استعلام ]9)0 على قاعدة البيانات. 

DbDataReader I[DataReader -3‏ ataReaderطD:‏ تمكتنك من قراءة البيانات الناتحة 
عن عملية استعلام على سبيل المثال » لكن الناتج سيكون للقراءة فقط وفي اتجاه واحد فقط. 

Data dapter DbDataAdapter IDataAdapter -4‏ : تمكتنك على الحصول على 
صورة من البيانات المطلوبة سواء جدول او جملةه استعلام وتمكنك من التنقل بينها وعمل اضافة 
و تعديل و حذف و خلافه. 


Parameter DbParameter [DataParameter -9‏ : خاصة بتمریر متغیرات إلى جمل 
الاستعلام. 


2. 1. اJ Data Providers‏ الودعومۂ من قبل مایکروسوفت 


:System.Data.OleDb 


يمكن استخدامها للتعامل مع اي نوع من قواعد البيانات › لكن لو كان لقاعدة البيانات مزود آخر 


موجود في القائمة يفضل استخدامه نظرا لإن هذا النوع هو الأبطاً. 


:System.Data.SqlCllent 
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يفضل دوما استخدامها للتعامل مع قواعد البيانات 56۲۷8١‏ ]ا50 حيث انها تحتوي على مجموعة من 


المهام الخاصة بالتعامل مع هذا النوع من قواعد البيانات. 
:SVSEEM. DAES. SOLSEEVEEUE‏ 


يفضل استخدامها في حالة التعامل مع قاعدة بيانات €۴ 5٥۲۷٥١‏ ا50 الخاصة بالتعامل مع ال 
.Pocket PC‏ 


:System.Data. Odbc 
يمكن التعامل معه من خلالها.‎ 000٤٥ اي ملف‎ 
:System.Data.OracleCllent 


يفضل التعامل مع قواعد البيانات أوراكل من خلالها. 


Third-Party التعامل مع وزودات خدgة رى‎ .2 .2 
ADO.NET Data Providers 


فى الفقرة السايقة ذكرنا مزودات لقواعد البيانات الرئيسية» ولكن ماذا عن قواعد البيانات 
ie DB2 gî FoxPro gî MYSQL‏ $ 


هل سنضطر فى النهاية لاستخدام 0|06 ذات السرعة الأبطاً والامكانيات المحدودة نسبيا ؟ 


¥ طبعا » قامت اغلب الشركات بتطوير ۴۲0۷10٥۲5‏ 033 لمنتجاتها خاصة ب ۸00.٤٤‏ أو 
حتى شركات تقدم مزودات معتمدة من الشركات الآصلية تتمتع بسرعه اكبر ومميزات وخدمات 


اضافية » هذا الرابيط متال عليها: 


http://www.sqlsummiIt.com/dataprov. htm 
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System. Data ءlguصiلll‎ Jl5 وكوناٽ‎ . 3 


يحتوي هذه الفتة على كل ما يخص قواعد البيانات والتعامل معها من دوال وخصائص وحتى 
رسائل الأخطاء ك١0|†مc€6٤×E»‏ سنستعرض هنا سريعا أهم محتويات هذه الفئة حيث ستفيدنا فى 


التعرف على خصائصها: 


AMDlo CB eI ON fo 


منه يتم اشتقاق الفئة الخاصة بالاتصال بقاعدة البيانات» يحتوي على الدوال التالية: 


public interface IDbConnection : IDisposable 
StEInG ConnectEloOnSEEING: {1 Ge; Set; 
int ConnectionTimeout { get; } 
string Database { get; } 
CONNECELONSLALG. SLaLe {1 GET? | 
LDOTEINSACEIOT BEGTLINTEanNSaCLELOoORNn OS 
TDDTEANSGACLIOR BEGLINTEANSACLTLON(ESOLGALCIONLEVEL LL)? 
void ChangeDatabase (string databaseName) ; 
TOI CIOS O, 
IDbCommand CreateCommand () ; 
vod Open (7 


Public Interface IDbConnection 
Inherits IDisposable 
Property ConnectionString () As String 
ReadOnly Property ConnectionTimeout () As Integer 
ReadOnly Property Database () As String 
ReadOnly Property State() As ConnectionState 
Function BeginTransaction (J) AS IDbTransactlion 
Function BeginTransaction (ByVal 1l As IsolationLevel) As IDbTransaction 
Sub ChangeDatabase (ByVal databaseName As String) 
Sub Close () 
Function CreateCommand () As IDbCommand 
Sub Open () 

End Interface 


‘TIUDOCOMMANO 
يتم منه اشتقاق الفثات الخاصة بالتعامل لاحقاً مع تنفيذ جمل الاستعلام » يحتوي على الدوال‎ 


التالية: 
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public interface I1IDbCommand : IDisposable 

{ 
string CommandText { get; 
int CommandTimeout { get; 
CommandType CommandType { get; set; } 
1IDbConnection Connection { get; set; } 
I1IDataParameterCollection Parameters { get; } 
I1IDbTransaction Transaction { get; set; } 
UpdateRowSource UpdatedRowSource { get; set; } 
vOld Cancel (); 
1IDbDataParameter CreateParameter () ; 
1int ExecuteNonQuery () ; 
IDataReader ExecuteReader () ; 
IDataReader ExecuteReader (CommandBehavior behavior) ; 
object ExecuteScalar () ; 
vOlQd Prepare (); 


VB.NET 


Public Interface 1IDbCommand 
Inherits IDisposable 
Property CommandText () As String 
Property CommandTimeout () As Integer 
Property CommandType () As CommandType 
Property Connection () As I1IDbConnection 
ReadOnly Property Parameters () As IDataParameterCollection 
Property Transaction() As IDbTransactilion 
Property UpdatedRowSource() As UpdateRowSource 
SUD GENCE L() 
Function CreateParameter () As IDbDataParameter 
Function ExecuteNonQuery () As Integer 
Function ExecuteReader () As IDataReader 
Function ExecuteReader (ByVal behavior As CommandBehavior) As IDataReader 
Function ExecuteScalar () As Object 
Sub Prepare () 
End Interface 


: TDbDataParameter 


تحتوي على : 


public interface IDbDataParameter : IDataParameter 


{ 


byte Precision { get; set; } 
byte Scale { get; set; } 
int Size { get; set; } 
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VB.NET 


PUBLIC Interface IDbGDataParameter 
InnéerFilzs IDaltaPaFaMmMeter 


Property Precislon() As Byte 

Property Scale() As Byte 

Property Slze() As Integer 
End Interface 


: [IDatlaParameter 


public interface 1DataParameter 

ا 
DbType DbType { get; set; }‏ 
ParameterDirectlion Direction { get; set; }‏ 
bool IsNullable { get; }‏ 
string ParameterName { get; set; }‏ 
string SourceColumn { get; set; }‏ 
DataRowVersion SourceVersion { get; set; }‏ 
object Value { get; set; }‏ 


Public Interface I[IDataParameter 
Property DbType () As DbType 
Property Direction () As ParameterDirection 
ReadOnly Property IsNullable () As Boolean 
Property ParameterName () As String 
PrOREELEY SOUECECOLUMA() A8 SZEING 
Property SourceVersion () As DataRowVersion 
Property Value() As Object 

End Interface 


: IDbDataAdapter 


public interface I1IDbDataAdapter : IDataAdapter 


{ 
I1IDbCommand DeleteCommand get; set; 


1IDbCommand InsertCommand get; set; 
1IDbCommand SelectCommand get; set; 
1IDbCommand UpdateCommand get; set; 
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VB.NET 


Public Interface IDbDataAdapter 
Inherits IDataAdapter 
Property DeleteCommand As 1IDbCommand 


Property InsertCommand TDbComnand 

Property SelectCommand As 1IDbCommand 

Property UpdateCommand As IDbCommand 
End Interface 


: IDataAdapter 


public interface IDataAdapter 

{ 
MISSIRNOMADDILNOACTILOT MISSINOMADEBIRNGACTIORN: A OEE? OOLC; 1 
MissingSchemaAction MissingSchemaActlion { get; set; } 
I1ITableMappingCollectlion TableMappings { get; } 
int Flll (System.Data.DataSet dataset); 
DataTable[] F1llSchema (DataSet dataSet, SchemaType schemaType) ; 
IDataParameter[]]| GetF1llParameters () ; 
int Update (DataSet dataSet); 


VB.NET 


Public Interface IDataAdapter 
Property MissingMappingAction () As MissingMappingAction 
Property MissingSchemaActilon () As MissingSchemaAction 
ReadOnly Property TableMappings () As ITableMappingCollection 
Function Flll (ByVal dataSet As System.Data.DataSet) As Integer 
Function F1llSchema (ByVal dataSet As DataSet, ByVal schemaType As 
SchemaType) As DataTable () 
Function GetF1llParameters() As IDataParameter () 
Function Update (ByVal dataSet As DataSet) As Integer 
End Interface 


: [{1DataReader 


public interface IDataReader : I[IDisposable, IDataRecord 
{ 

ILM DEDIR {1 GE? | 

bool IsClosed { get; } 


1HL RECOFIASATFEECEST { GEE? J 
GOIN Close O; 

DataTable GetSchemaTable (); 
bool NextResult () ; 

bool Read(); 
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VB.NET 


Public Interface IDataReader 
Inherits [Disposable 
Inherits IDataRecord 
ReadOnly Property Depth () As Integer 
ReadOnly Property IsClosed() As Boolean 


ReadOnly Property RecordsAffected() As Integer 
UD CLOSE) 
Function GetSchemaTable () As DataTable 
Function NextResult () As Boolean 
Function Read() As Boolean 

End Interface 


: ITDataRecord 


publl1c interface IDataRecord 

{ 
1II. FIELOICOUNL { GEE? | 
object this[string name] { get; } 
GbIECE THIS IARE TL] {Gef } 
DoOOl GECBOOLEANINE TL; 
byte GetByte (int i1); 
char GetChar (int 1}; 
DateTime GetDateTime (int 1); 
Decimal GetDecimal (int 1); 
Float GetFloat (Int 1); 
GNOET GELINELOGO INE TE 
IM CELINLI2 (ARE 1G; 
1ONG GELINEO4ANE 1; 
eT 
DBOOlL. ITSDBNULL (TOT. 1L); 
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VB.NET 


Public Interface I1DataRecord 
ReadOnly Property FleldCount () As Integer 
Default ReadOnly Property Item (ByVal name As String) As Object 
GL 
End Get 
End Property 
Default ReadOnly Property Item (ByVal 1 As Integer) As Object 
Gel 
End Get 
Enid Property 
Function GetBoolean (ByVal 1 As Integer) As Boolean 
Function GetByte (ByVal 1 As Integer) As Byte 
Function GetChar (ByVal 1 As Integer) As Char 
Function GetDateTime (ByVal i As Integer) As DateTime 
Function GetDecimal (ByVal 1 As Integer) As Decimal 
Function GetFloat (ByVal 1 Integer) As Single 
FuniCLEIonNn GELINLL6 (BVVAL 1 Integer) SHOE 
FuUnNCEIOR- GELINESL (BVVSL 1 Integer) Integer 
Function GetInt64 (ByVal 1 Integer) Long 


FURNCELON ISDBNULL (BYVAL 3 Integer) Boolean 
End Interface 


4. lلیدuılۃ SQL Server 2g‏ 
4. 1. انشاء قاعدة البيانات 
انتهينا من الفئات الاساسية في عالم ۸00.١۴‏ وجاء وقت التطبيق الآن. 


سنحاول الآن تطبيق انشاء قاعدة بيانات مثلا للموظفين باسم ٤٥٤رہ‏ اط۳ . الآن قم بتشغيل 


نسخة فیجوال ستودیو جديدة ۴0۲۳85۶ »[|,40WS‏ ومن ثم قم باختيار المسار والبيانات اللازمة. 


بداية ا بد أن يكون لديك نسخة ١١۲۷إعS‏ 1ا50 من الاصدار السابع أو احدث او على الاقل 


النسخة الموجودة مع الفيجوال ستوديو 585 على الرانظ التالى : 


رابط گے 
http://msdn.microsoft.com/ vstudlo/express/ sql‏ 
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والتي تقع ضمن المجموعة المجانية من مايكروسوفت. 


الآن من قائمة ۷/i6W‏ قم باختیار ١۴٤۲٥ام×٤۴ Se۷€۲‏ ستجده على الجانب › قم بالضغط بالزر الآيمن 
واختيار €sئDatab2a Create New Sq Server‏ بالشکل التالي: 
Server Explorer IK r Fomlel‏ 
E‏ ي ل عا 
Data Lonnections | ٤ dl rem‏ 1 ا 


E. Bg Servers | fF] Refresh 


| 
م ا ا ا 
j Delete‏ 


i او‎ | Add Connection... 
E ا اک‎ Lreate New SL Server Database... 


HI. | Performance Counters 
[E.. gf Services 


CrrTTTTTITTTTTTTTTTTTTITTTTTT 


Create New SQL Server Database الصورة 7 1. 1. انشاء قاعدة بيانات جديدة ی‎ 
Enter Information to connect to a SL Server, then specify the من نافنة ال‎ SQL Server من نوع‎ 
name of a database to create, 

Explorer‏ 5€ فی الفیجوال ا 


سنو ديو . | Refresh‏ | 


الآن اصبح بامكانك انشاء قاعدة البيانات › Log on to the server‏ 
Use Windows Authentication C e ۹‏ @ 
قم فقط بتحدد الاسم تم اضخط ۲٥2٥‏ : 


i Use SQL Server Authentication 
بالشكل التالي‎ 


الصورة 2L7‏ انشاء قاعدة بيانات جديدة New database name:‏ 
من نوع 9Q1 Server‏ و تحدید 


| Lancel | تاوما‎ 


Employee 
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“* قد تظهر لك مشكلة عدم وجود سيرفر في الاصل لتتصل به» في الغالب حل هذه المشكلة 

يكون لعدم اتصالك بالشبكة . فقط قم بتوصيل الشبكة - حتى في حالة عدم وجود اتصال 

بالانترنت - وجرب . فقط . 

: قد يظهر لك اسم سيرفر ولكن تظهر لك رسالة الخطاً التالية‎ ۴*٣ 

An error has occurred while establishing a connection to the server. When connecting to SQL Server 2005, 

this failure may be caused by the fact that under the default settings SQL Server does not allow remote 
connections. (provider: Named Pipes Provider, error: 40 - Could not open a connection to SQL Server) 

في هذه الحالة من البرامج قم باختيار 2005 jag Microsoft SQL Server‏ ۾ Configuration‏ 

ا0ا ومن ثم SQ) Server 2005 Surface Area Configurati0¬‏ » ستجد من ضمن الخصائص 

Surface Area Configuration for Services and connections‏ » قم بفتحھا والتأکد من ان 


خصائص and remote c0۸ € ٤†|0 ١5‏ اaع0ا‏ مفعلة » قم ايضا بالتأكد من آن السيرفر يعمل. 
اننا ت متايعة محموعة من الحلول هنا : 


http://forums.microsoft.com/MSDN/ShowPost.aspx?Postl D=192622&4Sitel D=1 


الآن اصبح لديك قاعدة بيانات وجاهزة للعمل › ستبدآ باضافة جدول بيانات الموظفين بالشكل 


التالى: 


» 
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TO, Or 
El LA 


ا ل اع 
2I JjJ Data Connections‏ 

: 3: li ahmed-pciısqlexpress,Employee.db 
H.-- i Database Diagrams 


E N Vi Add New Table 
E] ا‎ i New Query 


E By FU, 
9 3 Refresh 


#l.-. T il | Properties 

E Asem 
i ا‎ SENYENS 
-  Ahmed-PC 


4 | 11 | F 


Data Sources‏ و 


الصورة 17. 3. اضافة جدول إلى قاعدة البيانات. 
لاحظ انه بامكانك اضافة اي محتويات بهذا الشكل متل الدواJ‏ واiجرlءĞGIتProcedUre Stored‏ 


و غیره > الآأن قمنا باختيار اضافة جدول بالشكل التالى: 


Lolurmn Name Data Type Allow Nulls 
ê [First Name] nchar(l0j 
[last Nare] nchar(l0] 
Aqe smallint 


الصورة 7. 4. تعديل حقول الجدول. 
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لتعيين مفتاح رئيسي نقوم باختيار "2٣۷ )K€¥‏ اام set‏ و لجعله autonum ber‏ نقوم بتعدیل |denti†¥‏ 


Sp‌ecfications‏ إلى sع۷‏ ومن ثم نقوم بتحدید |١۸٤٣۲۴۳۱8۸۲‏ وهو معدل الزيادة إلى 1 كما فى 
الشكل التالي: 


Allow Nulls 


ri 1 
Remove Primary Key i WM 


Loluirmn Narre 


ا 


[1 
ِ 


ع بای لسا اج 1 


Insert Column EZ7 
(10) Wl 
Delete Column Ez 
- lint E 
Relationships... 8 
IndexesfKEys... کک‎ 
Fulltext IMHE..., 


AMIL Indexes, 


= 
ج 


E Lheck Constraints... 


| 3 Generate Change Script... 


Properties 


TT 
Identity Increment 
Identity Seed 


Indexable 


I‏ ا 


Identity Specification 


الصورة 17. 5. اضافة المفتاح الرئيسي €۷ ۲۲1٠١3۲۷‏ لحقل من حقول الجدول. 


ستنتعر ف على آنواع البيانات في الحزء اللاحق مباشرة . 
اخیرا بعد الانتهاء قم بحفظ الجدول باسم ١۴٣|_٤عع۷هام۳ع‏ مٹلا. 


بعد ان قمت بالخطوات السايبقة » يمكتنك استعراض الحداول التى لديك وفتحها لليدء فى ادخال 
البيانات بالشكل التالى: 
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ADO.net تٽlنlيıلl قواعد‎ 


ا a Ki‏ ا 
Ll‏ ا اق 


E 

De - 

E JjJ Data Connections 

E lk ahmed-pcisqlexpress,Emploeyee,dbc 

1» J] Database Diagrams 

| Tables 
E. Views Add New Table 
B~ Û Stored ۴ Add New Trigger 
EH O Functio 
E] Synonyr E EE 
-- Bı Types Open Table Definition 

i E ll Assemb | Show Table Data 

3. FM Servers ك ا‎ 


êl ا‎ Ahmed-PL 


Lopy 
Delete 


Refresh 


الصورة 1/7. 6. استعراض البيانات المخزنة فى الجدول و التعديل و الاضافة عليها. 
وبنفس الطريقة يمكنك اعادة تصميم الجدول وخلافه » قمت بادخال يعض البيانات بالتكل التالى 


۶ 


متلا 


ıd First Name last Name Aqe 
Th Ahmed Gamal 22 

۳ Hossam sa dik 1 

3 Khaled Ad eا‎ Fal 

: Ahmed saled 1 

. Ahmed Essawy E 
0 NULL Ahmed ¢ Emad @ 21 
*# NULL NULL NULL NULL 


الصورة 17. 6. ادخال البيانات. 
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أنواع البيانات فى 5٥۲۷٥۲‏ ا50 : 


النوع 
bigint‏ 
int‏ 
smallint‏ 
tinyint‏ 
bit‏ 
decimal‏ 
numeric‏ 
money‏ 
smallmoney‏ 
float‏ 
real‏ 


datetime (3.33 
milliseconds 
accuracy) 


smalldatetime 
(1 minute 
accuracy) 


char 


varchar 


المجال من 


-9,223,372,036,854,775,808 
-2,147,483,8 
-32,768 
0 
0 
-10^38 +1 
-10^38 +1 
-922,337,203,685,477.5808 
-214,7/48.38 
-1.79E + 308 
-3.40E + 38 


Jan 1, 1753 


Jan 1, 1900 


ADO.net ٿliluږıلl قواعد‎ 


المجال إلى 


9,223,372,036,854,775,07 
2,147,483,7 
32,767 
255 
1 
UE 
0 
+922,337,203,685,477.507 
+214,/48.37 
1.79E + 308 
3.40E + 38 


Dec 31, 9999 


Jun 6, 2079 


حرف ۸٥٥4٩‏ لا-۸0۸- یقیل حتی 8000 حرف 
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varchar(max)‏ حروف ٥4€٩٥٥۸لا-۸N0۸‏ تحمل حتی 
1 حرف 
text‏ حروف ۸٥٥٩4٥‏ لا-۸۱0۸ تحمل حتی 2,147,483,647 حرف 
nchar‏ حروف ثابتة ٥0٩٣لا‏ تحمل حتى 4,000 حرف 
nvarchar‏ حروف ٣٣٥4٤٩‏ لاتحمل حتی 4,000 حرف 
nvarchar(max)‏ حروف ٥4€٩٥٥۸لا-۸۱0۸‏ تحمل حتی 
0 حرف 
ntext‏ حروف ٩0۵4٤٩۴‏ ۸لاتحمل حتی 1,073,741,823 حرف. 
binary‏ بيانات خنائية خابتة تحمل حتی 8,000 ٥‏ بايت. 
varbinary‏ بيانات ثخنائية متغيرة تحمل حتی 8,000 0 بايت. 
varbinary(max)‏ بيانات ثنائية متخيرة تحمل حتى 231 بايت 
image‏ بيانات ثنائية متخيرة تحمل حتى 2,147,483,647 بايت. 


الجدول 17. 1. أنواع البيانات في ال 5٥۲۷٥١‏ ا5Q.‏ 
وإذا كنت قد تعودت على نظام تسميه آنواع البيانات في أ€. » فهذا الحدول من مايكروسوفت 


یوضح لك نظير كل نوع بيانات في أ€.. : 


٤|۴ نوع البیانات‎ )S۵ا‎ C18 ."٥ نوع البيانات في‎ SQL SERVER 
Server) 
Sqllntb64 Int64, Nullable<Int64> Bigint 
SqlBytes, SqlBinary Byte [|] Binary 
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bit 
char 
Cursor 


date 
datetime 
datetime2 


DATETIMEOFFSET 


decimal 
float 
image 
int 
money 
nchar 


ntext 


numeric 
nvarchar 


nvarchar(1), nchar(1) 


real 


rowversion 


smallint 


Boolean, Nullable<Boolean> 


DateTime, Nullable<DateTime> 
DateTime, Nullable<DateTime> 


DateTime, Nullable<DateTime> 


DateTimeOffset, 
Nullable<DateTimeOffset> 


Decimal, Nullable<Decimal> 
Double, Nullable<Double> 
لا يو جد‎ 
Int32, Nullable<Int32> 
Decimal, Nullable<Decimal> 
String, Char[] 
لا يو جد‎ 
Decimal, Nullable<Decimal> 
String, Char[] 


Char, String, Char[], 
Nullable<char> 


Single, Nullable<Single> 
Byte] 


Int16, Nullable<Int16> 


SqlBoolean 


SqlDateTime 
SqlDateTime 
SqlDateTime 


لا يو جد 


SqlDecimal 
SqlDouble 
E 
Sqllnt32 
SqlMoney 
SqlChars, SqlString 
لا یوجد‎ 
SqlDecimal 
SqlChars, SqlString 


SqlChars, SqlString 


SqlSingle 
دو جحل‎ 3 


SqlIlnt16 
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SqlMoney Decimal, Nullable<Decimal> smallmoney 
ا یو جد‎ Object sql_variant 
یو جد لا یو جد‎ table 
ا‎ eS text 
TimeSpan TimeSpan, Nullable<TimeSpan> time 
لا یو جد لا یو جد‎ timestamp 
SqIByte Byte, Nullable<Byte> tinyint 
SqIGuid Guid, Nullable<Guid> uniqueidentifier 
نفس الفئة المحددة لا یو جد‎ User-defined type(UDT) 


varbinary 
varbinary(1), binary(1) 


varchar 


xml 


Byte] 


byte, Byte[], Nullable<byte> 


SqlBytes, SqlBinary 
SqlBytes, SqlBinary 
دو جحل‎ 8 


SqIXml 


الجدو ل 17. 2. أنواع البيانات في ال 5٥۲۷۴١‏ ا50 و مقارنتها مع آنواع البينات في الدوت نت. 


SQL Statements .2 .4 


لمعالحة البيانات فى قاعدة البيانات وتنفيتن عمليات الاضافة والتعديل وخلافه اضافة 


لعمليات الإنشاء والتكوين نحتاج إلى لغة تفهمها قواعد البيانات » هذه اللغة هي ا50 وهي اختصار 


.Structured Query Language — 


و تصلح تقنية الاستعلام للعمل مع جميع آنواع قواعد البيانات : 


Ser€٣‏ و غیرها. 


Access - MS sql - Oracle 
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تقوم هذه الجملة بالبحث - كما هو شائع - إلا آنها تستخدم أيضا في الأضافة والحذف والتعديل 


وانشاء الجداول وحتى قواعد البيانات . والتحكم بها والادارة وغير ذلكڪ. 


هذه هي الدوال الرئيسية في لغة الإستعلام هذه : 


الصورة 17. /. أنواع دوال الاستعلام في لغة ال ]94 
الصيغة العامة لجملة الإستعلام الآأشهر للبحث هي : 


SQL | 2 


SELECT Colums_Name FROM Table Name; 


نلاحظ تكون جملة الإستعلام من أريبعة أجزاء: 


اء ع5e1:‏ وهي التي تميز جملة البحث عن غيرها من جمل أا50. 
:c01 um_ Name‏ اسم الحقل أو العمود الذي تريد له أن يظهر. 
ag ELO‏ اکا صيغة خاصة يبحملة البحث . 


458 


الباب السابع عشر قواعد lلlıنlٽ ADO.net‏ 


e_ Name‏ 1 abا:‏ هنا نکتب اسم الجدول. 
ولنلق نظرة قبل البدء على ما يمكن تسميته ( القواعد النحوية ) ×3أ١5۷‏ لجمل الإستعلام : 


* لا يوجد آي فرق بين الأحرف الكبيرة والصغيرة. 
* مسافة = مسافتان = عشرة أسطر : لا يعترف بأكثر من مسافة. 
* تنتهي جميع جمل الإستعلام بفاصلة منقوطة ; إلا أننا قد لا نحتاج إليها في تطبيقات البرمجة 


۶ 


غالبا . 


وهذا مثال على الجملة السابقة : 


SQL | ر‎ 


SELECT FName FROM Tb_Main; 


و اذا ڪا ذنريد استخراج آڪتثر من عمود فيمكننا و ضعهم بالتوالي و تفصل بينهم الفاصلة » فمثلا 


لاستخراج الإسم الأول والإسم الآخير : 


SQL ا‎ 


SELECT FName, LName FROM Tb_Main; 


و لاستخراج جميع البيانات فإننا نضع * محل اسماء الحقول وذلك بالشكل التالي : 


SQL 2 


SELECT *. FROM To6_Main; 


و لاستخراج البيانات ولكن يدون تكرار نستخدم LS LLM sa‏ فمتلا لاستخراج الإسم الأول مع 
حذف التكرار : 
ا | SQL‏ 


SELECT DISTINCT FNAme FROM TBD Main; 


2 


أنضا رتب العانات المخرحة تصاعده أو تارك اندم ا مر 


SQL | ا‎ 


... ORDER BY column 


آو للتناز لي 


459 


الباب السابع عشر قواعد lıllنlٽ ADO.net‏ 


ڪو د SQL‏ 


... ORDER BY colum DESC 


فمثلا لاستخراج جمع البيانات مع الترتيب التصاعدي حسب الإسم الأول : 


ڪو د Jel‏ 


SELECT * FROM Tb_Maln ORDER BY FName DESC; 


ويمكننا عمل مستويين للترتيب - كما هو شائع - وذلك باستخدام الفاصلة › فمثلا للترتيب حسب 


الإسم الأول ومن ثم الإسم الأخير ولكن تنازليا هذه المرة : 


SQL ڪود‎ 


SELECT * FROM Tb Main ORDER BY FNaméyLname ;} 


تآخذ صيغة استخدام المساواة ڪشر ط فی عملية الإستعلام الصيغة التالية: 


SQL ا‎ 


SELECT * FROM Tb_Malin WHERE Field = Value; 


2 


و یمکننا استخدام خ أو < أو <= أو <= أو Es‏ 


وأخيرا معاملين جدد سنشرحهم يإذن الله ل¥إاحÎa BETWEEN, L1KE lag‏ 


فمثلا للاستعلام عن الأصدقاء الذي تساوي آعمارهم 8 سنة : 


Jel ڪکود‎ 


SELECT * FROM tb_Main WHERE age = 18}; 


SQL | a 


SELECT FName, LName FROM tb_Malin WHERE age < 50;‏ 
وستضع ءا۷41 بين علامتي تنصيص مفردة في حالة كانت نصوصا وذلڪ بالشكل التالي - 


للبحث عن الأشخاص والذين لهم الإسم ( أ حمد ) : 


ڪو د SQL‏ 


SELECT * FROM tb_Main WHERE Fname = 'ahmed'; 


كما ستنضع علامتي # عند البحث عن تواريخ › ولا توجد أمثلة لتاريخ في قاعدة البيانات › لكنها 


تآخذن صيغة شبيهه بالتالى : 
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ڪو د SQL‏ 


SELECT * Form Table1l WHERE Date > #12/03/04¥#; 


والآن : ماذا لو آردنا البحث بتحقيق مجموعة شروط آو أحدها أو تحقيق شرط مع انتفاء آخر ؟ 
من آجل هذا الخرض نستخدم المعاملات المتنطقية البسيطة A١١۵‏ و 0٣‏ كما تعلمنا فى لغات 
البرمحهة. 


والآن إلى مثال سريع » سنبحث عن الأشخاص الذين يكبر عمرهم عن 1/7 بشرط الا يكونوا 


متزوجين ۰ 


ڪو د Jel‏ 


SELECT Fname FROM tb_main WHERE age > 17 AND marry = false; 


4 


استخدام المعامل 11۸۴ : 


نستخدم المعامل 1.15١‏ للبحث عن الكلمات المشابهه لتعبير معين ... 


وتستخدد تلمحامل 11۴ الصةة اتان : 


SQL r 


SELECT * FROM Table WHERE Fleld LIKE '$SName®$s'; 


نستخدم 5 للدلالة على وجود أحرف ما ... وقد نستخدمها فى البداية › أو النهاية » أو كليهما . 
و سيتضح الآأمر فى الأمتلة: 


لعرض الأشخاص الذين قد تحتوي أسماءهم الآأولى على ۸N"‏ ... ستستخدم جملة استعلام بهذا 


اتگل 


SQL 


SELECT * FROM Tb Main WHERE FNamëé Like ‘Shims; 


أما لو أردنا البحث عن الأشخاص الذين تبدأً أسماءهم بحرف ۸ لذا لن نضع > قبل كلمة البحث : 


ڪو د SQL‏ 


SELECT * FROM Tb _ Malin WHERE FName likéê 'AS'; 
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ولو آردنا البحث عن الآأشخاص الذين ينتهي اسمهم بحرف معين ستنضع 5 في البداية دون النهاية. 


مللا حظة 


في sکعA۸cc M5‏ نستخدم * بدلا من % 
مما سبق نستنتج أن % تعنى أي عدد من الحروف › لكن ماذا لو أردنا تحديد عدد الحروف ؟ 


فى هذه الحالو نستخدم " " » مناظرها فى ككئع)٤٤۸‏ هو علامة الإستفاهم ٩"‏ 


الإستخدام الرمز 

أي عدد من الأحرف ابتداء من صفر فصاعدا 

حرف واحد فقط . (underscore)‏ 
dL TS‏ ا 

Like '[A-N]ack' N وال‎ 


حرف واحد فقط شريطة ألا يكون هو المحدد › مثلا 


الجدول 17. 3. بعض الأمتلة لاستعمال المعامل 11۸٤‏ في عمليات المقارنة. 
إذن : ماذا لو أردنا أن نبحث عن الأشخاص الذين تبدأ أسماءهم بحرف ۸ بشرط أن يكون عدد 


حروفهم 3 فقط. 


SQL 


SELECT * FROM Tb. Main WHERE FNamé Iikê 'A__ "; 


DE IWEEN Jalعalا استخدام‎ 


نستخدم هذا المعامل للبحث ضمن نطاق معين »› و آشهر استعمال لهذا المعامل هو استخدامه في 


البحث ضمن التواريخ. 


يآخذ البحث باستخدام B1N ٤٤١‏ الصيغة التالية: 


SQL 2 


SELECT colum FROM table WHERE field BETWEEN v1 AND v2; 
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فمثلا لاستخراج الأشخاص الذين تترواح أعمارهم بين 20 و 60: 


SELECT * 


FROM tb_main 
WHERE age BETWEEN 20 AND 60; 


ويمكن استخدام نفس الطريقة مع الأسماءء والتواريخ بطبيعة الحال. 
اتستخدم العديد من الدوال ضمن طيات جمل الاستعلام » وهي شائعة الاستخدام » ومريحة › 
وتعيد قيمة وحيدة - لا تعيد جدول - سنتعرف على بعض الدوال مع بعض الأمثلة خلال هذا 


الترس. 


ولننظر نظرة سريعة إلى الصيغة العامة لاستخدام الدوال والتي تأآخن الشكل التالي: 


SQL 


SELECT TUNC(CEOLUM) FROM TablLlLé WHERE CondILL Lon; 


:A۸۷6 الدالة‎ 


تقظا هدد الدانة متوسط حل ها :و لحات متوسط ١ل‏ عمار كى قاعدة اتاتات ملا نكت أهرا 


SQL 


SELECT AVG (Age) FROM tb_main; 
ولك ان تتخيل مادا سنفعل لو لم نستخدم هذه الداله »> كنا سندور على جميع السجلات حيث‎ 
- نجمع ارقام كل سجل تم ننتقل إلى التالي وهكذا - برمجيا.‎ 


أيضا يمكننا استخدام الدالة بشرط فل لجات مو سط أعمار الأشخاص الذين تز يد 
آعمارهم عن 25: 
SQL‏ 


SELECT AVG (Age) FROM tb_main WHERE age < 25; 
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لو لاحظت لوجدت أن ناتج الدالة يظهر في حقل تحت اسم ۳×۲100 آو ما شابه ... لذا قم - إذا 


كنت تريد - باعادة تسمية حقل الناتج عن طريق ۸۵5 كما تعلمنا سابقا وبالشكل التالي: 


SQL 


SELECT AVG (Age) AS AVGAGE FROM tb_malin WHERE age < 25; 


لاحظ أن الدالة سوف نتتجاهل السجلات الفارغة... 


: Sum, Max, M11 JIgدلi‎ 


تعطي هذه الدوال المجموع - الأكبر - الأصغر على التوالي › وهذا مثال على أكبر عمر في قاعدة 
البيانات: 


SQL 


SELECT max (Age) AS mxAGE FROM tb_main; 


لا تنس أن بإوكاننا وضع شرط لعملية الإستعلام. 
اlلدIاal :COUuUuNT‏ 


و تعيد هذه الدالة عدد السجلات › لنعيد مثلا عدد السجلات : 


SQL 


SELELT. COUNT (*) 
FROM Tablel; 


SQL 


SELECT COUNT (DISTINCT TIiLle) 
FROM Tablel; 


العلاقات : 
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كانت هذه بعض الدوال البسيطة والاكتر شهرة فى أ٩15‏ والآن » ماذا لو كانت لدينا 


علاقات ونرغب في العمل عليها. في هذه الحالة سوف نستخدم الجملة بالشكل التالي : 


SELECT Lb main. EFname;y TD Malhs.Lhname;y TDLRLl.BASSDOFCE, LD. FIsBDECLAaASS, Tb FEL: ErONM 


FROM Eb Maln;y Eb_FI 
WHERE tb_mailin.Number = tb_rl1l.Number; 


دعنا الآن نلاحظ الفروق بين هذه الطريقة والطربيقة السابقة: 


آو لا : نقوم بكتابة اسم الجدول.اسم الحقل وذلك مهم لأننا نتعامل مع آڪتر من جدول. 
ثانيا : نقوم بكتابة اكثر من جدول بعد عبارة ٣۸0۲۷‏ لأننا نريد النواتج من أكثر من جدول. 
ثالثا : السطر الآخير من جملة الاستعلام هو لكي يعرض المعلومات التي تتشابه أرقامها في 


الجدولين سويه. 


: DDL 


ذكرنا أن 001 تختص بالتعامل مع هياكل قواعد البيانات » سنبداً أولا بصيغة انشاء جدول وذلڪ 


بالشكل التالى: 


SQL 


CREATE TABLE tbl ( colum type, colum type, 
() من نوع‎ Na۳۴ و كمتال على ذلك ... لننشئ جدولا تحت اسم 2 يحتوي على حقلين › الإسم‎ 


Number غ‎ gi ja Age رخî¥lو‎ ( String - نص‎ 


SQL 


CREATE TABLE tbl (name text,age number) ; 


إذن ماذا لو أردنا أن نحدد حجم حقل العمر ع٩١31[‏ بخمس خانات فقط ... إذن ضع عدد الخانات 


بين قو سین مع تعيين نوع بیانات الاسم Jۉ TexlL‏ و ڏلڪ بالشکل التالي: 


SQL 


CREATE TABLE tbl (name text (6),age number ); 
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آخر نقطة سآشر حها في انشاء الجداول هي كيف نجعل الحقل لا يقبل فراغ Nu11‏ - 
و لنحرب هذا المتال مع الإسم أيضا: 


SQL 


CREATE TABLE tbl (name text (6) Not Null,age number ); 


ولكن ماذا عن الحذف ... في الواقع هذا الكود يقوم بحذف الجدول الذي قمنا بإنشاءه توا: 


SQL 


DROP Table tbl; 


وؤ كان هذا الحدول مر تبطا نعلاقات فلا مد من تخدتھا باضافة 0۸905٤‏ تی آخر الکود 


وذلك بالشكل التالى: 


SQL 


DROP Table tbl CASCADE; 


والآن سنبداً فى اضافة حقول إليه وذلك يعد عملية الانشاء - أعتقد أن الفرق بين الحجدول وقاعدة 
البيانات والحقول آصبح واضحا. - 


نستطيع اضافة الحقول بصيغة عامة بالطريقة التالية: 


SQL | ا‎ 


ALTER TABLE tbl ADD colum type; 


نلنضف حقلين جديدين : الأول هو تاريخ الميلاد والثاني النوع ( ذكر - أنثى ) : 


SQL 


ALTER TABLE tbl ADD birth Date date, Gender Text}; 


والآن لنحذف أحد هذه الحقول وليكن حقل ... 6١1۴٥٣‏ لاحظ أننا دائما نضيف كلمة 


A-A ۳‏ لتحدیث العلاقات - في حال و جودها - » وذلڪ بالشكل التالي: 


SQL 


ALTER TABLE tbl DROP gender CASCADE; 
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DML‏ مرة آخریى: 


بعد ان تعلمنا جزء البحث والاستعلام فى ا0۷ سوف نتعلم الآن اضافة السجلات » وسوف نستخدم 


M211‏ _ط] كجدول لنجرب أوامرنا عليه » والآن إلى الصيغة العامة لأآمر الإضافة: 


SQL 


INSERT INTO table VALUES (vl, 


لاحظ آننا ستمرر القيم واحدا وراء التاني وتفصل بينهم فاصلة › مع مراعاة وضع النصوص بين 


علامتي تتنصيص والتواريخ بين علامتي ١#‏ . 


ستنمرر القيم التالية : الرقم - الإسم الأول - الإسم الآأخير - رقم الهاتف - العمر - العنوان - البريد 
الإلكتروني - السنة - اللغة - الموقع - متزوح/لا - ملاحظات. 


وذلك بالشكل التالى: 


INSERT INTO tb_maln VALUES 


(LL;  ANmMEC”, GAMA L 7; 6O60006;, LO; CAILFO', BHAMMACALUSL TFIESL 
Year','','',false,''); 


الصيغة العامة لتعديل بيانات سجل بالشكل التالى: 


SQL 


UPDATE table_name 
SET columl = TI ., COLUMA = Y2 
WHERE - COLUM. = TY; 


مجرت الان مال لجعل العمر = 28 والموقع = "0-0 7042٤20.‏ .اا للشخص الذي اسمه 
ıٺأوJ) Ahmed‏ ( وخر ) Gamal‏ ) : 


UPDATE tb_main 


SET age=25 , site='www.vb4arab.com'" 
WHERE fname='ahmed' AND lname='Gamal'; 


و لكن ماذا عن الحذف ... فى الواقع تتخلن جملة البيحث صيغة عامة كالتالى: 
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SQL 2 


DELETE FROM table WHERE colüm = value; 

ويمكن أن يكون الحذف تحت تآثير تحقق آكتر من شرط .. فى المتال التالى سوف نحنذف جميیع 
الآشخاص الذدين تزيد أعمارهم عن الأربعين: 

ڪو د Jel‏ 

DELETE FROM tb_malin WHERE age>40; 


ولكن ماذا عن حذف كامل محتوبيات جدول ما ... هذه هى الطربيقهة: 


SQL | e 


DELETE * FROM table; 


Stored Procedures .3 .4 


ال Stored Prcoedure‏ هو جملة استعلام مخزنة في قاعدة البيانات › الموضوع a e‏ 


ولذا لنستعرض سوية جملة الإستعلام تلك : 


SQL 


SELECT [First Name] FROM employee_i1info WHERE age>21l; 


وهو ما یتم تحویله ل ۴۲0٥٤٥۲8۵1۲٥‏ بالشکل التالی : 


CREATE PROCEDURE dbo.GetAge 
GEIFStname. char (1O0) OUtBUuUtE 


AS 

SELECT CTIFSLTHaAmME ZIFILFST. Namel 
FROM Employee_info 

WHERE age > 21 


. Stored Prcoedure J| p~ pû Alter gî Create JوÎٰںاl السطر‎ - 


- السطر التثانى يحتوي على البارمیترات او ال ع٥علا۷۵‏ ۲6۷۲۸ يتم تحديد نوعه 
و طريقتa Output gyi |I¬pUÎ‏ . 
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- السطر الثالث جملة الإستعلام . 


والآن ستذهب إلى قسم 50۲۴١4 ۲۲0٤٥۳60 اu ۲٥۴‏ وستختار انشاء واحد جديد ونكتب فيه هذه الاستعلام: 


0 Windle FormaippliciGa lO) - Mxrmeofî Yeayal Sudo 


Fle Edt Yew  Pecject Euild Debug Ûata Teo Te] Analyze inde Help 


HEI EE MAH : la j Debug ل۴ ق‎ + | j simple EO BR = 9 
1 1 TET SPIFETFPEY TOES FEET ii 2 E lao Eaplofer Wma Forrikppl. . HJ ¥ 
ا ل ا2‎ Î 7 ALTER FRGCEDURE dba .GerAge ۰ زع )ا فعا | ال‎ 
[jÎ ita Connections | RFizracrame zhaz (10) output 2 “gêl Soltion WinedowsFormaip picmiori0' Û pei 
U ahmed pteqleptess. Employee. کا‎ LE Wedat FarmaA pplkca than 1 
E [i Drtabase lagi SELECT [Firse Hane] freon Esployee info vere age > 31 E a Propertlês 
i Table j HefêrREEê 
Î Employee O] Fomd.cs 
H- Î Employee, inls al] Programe 
J ma 


Î Starêdl Fiatêthirêî 


س 


Ta] Funct Add New Stored Pietedurt 


J Syed 3 inen 
ل‎ Trpê Erte 
2- Cg Ae 
a Servers Step Inia Sbarêdl Fretêdhurê 
El Ahmed-F iy Copy 
ıt 4 Delt ا‎ ۳ ın ع‎ 
| Toolbar Hg Serie mF ١ = a Solution Explorer EFT ima 
r1 Fefrith ٤ ٤ 
Oiiput ۴ 3 FrotêffaE1 E و‎ | 
uj Propêrliea - 
E ااا‎ Belge Stored Piotedire 
| mmning [bat . [Garage] | FEirskmkms = & | TT 
ا‎ 

Firaz Hasa - 

Eri 

#Hhma d 

Ha zu iF Fata. 

TA Fowl] gatazsedl 

dELEwEnamm = 7 

EET VAYE = 0 

Fininhisd manmkîng [dba] „ [Fate] 

“| | FlarreEj 


ay TOF Lf aj Julpun 


pagan, ors wenn مي ت و‎ 
el Fre CSEarp UH E i sht - rte 


الصورة 17. 8. اضiilة .Stored ProCedUFr€‏ 
يمكنك تجربة الناتج عن طريق اختيار 5×٤6‏ » وسيكون الناتج شيا مثل هذا 
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Server Exphorer eH  dbo.GetAge: Stor..xpress Employee!" |_dbo.Employee: Ta..express 
21 | REFER EEOCEDURE dbo .GetAge= 
- jÎ Ûata Connections ۴ ErLiFsthamê ChaAF (10) oGtPpüE 
1- By ahmed-pe\zqalexpress.Employee. AS ڪڪ س‎ 
aH- O Ûatabasê Dagiarms ELECT [Firat Hame] from Employee info where ağê > 21 
- J Tables 
E- ÛÎ Employee 
H- E Ermıpleyee_infa 
A= Lg Ties 1 : 
A- LM] Stored Procedures 
a HEEE 


i: J Func Addl Newe Stored Procedure 


H- LS Smo Open 
H~ O Type 
- Î Asser Execute 
2- EM Servers Step lato Stored Procedurê 
: 1 با ساسا ا‎ e: Copy 
ETE seve % Pete 1 ااا‎ 
TE | [a] Refresh E 
: N . . 2 
Shows output from: شتا‎ Piopetes 


Runnirvg [dba] . [GetAge] [ Bira Enam m= E jl-_ 


ت 
a Eos aEEectEad.‏ 


2 EH] Fer GET#ed] 

Eireenames m= ¢ 

RSLUAH VALU, = Û 

ini red runmring [dbo] . [lat Agel . 


الصورة 17. 9. نتائج تنفين .Stored Pث°0C€dUF€ Jı‏ 


يمكنك جعل جملة الاستعلام تستقبل بارميتر لتحديد مثلاً الشرط المطلوب » الشكل التالي 
ڪمتال : 


ALTER PROCEDURE dbo.GetAge 
GéoonIILCIOR IBLE; 
Gf1rstname char (10) output 


AS 

SELECT CIIFStHaméê: = [FIFSTE. Namê | 
FROM Employee_info 

WHERE age > @condition 


فى هذه الحالة يمكنك تمرير بارميتر سواء من البرنامج او حتى فى ال١۴٥۲۷ع5‏ ]50 لتقوم بتنفين 


جملة الاستعلام على اساسه . 


ا ا تنس آن بامکانڪ عمل نفس جملة lالıستعھږںام Insert gî Delete gı Update‏ ل 


من SE LlEéECE‏ > و حسب جملة الاستعلام المطلوبية. 
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SQL Injection .4 .4‏ 
لو كنت تريد معرفة لماذا نستخدم St0red P0٤٥٤‏ بدلا من جمل الاستعلام مباشرة 
فا هو اتجزء الذق مليك أن تتح مه كرا :. 


لنفترض آذك داخل برنامجك تقوم بعملية تسجيل الدخول » عن طريق اسم المستخدم وكلمة 


المرور : 


ڪو د ) CF‏ 


SEEING Cmd = "select 1d from. Users: where hams like '"rFtexlLBOXL. Textt"'" and pass 
LIECG. FFE GREEOKI. lO TE 


الطبيعي أنه لو كان الإسم موجود فسوف تعيد الدالة قيمة 0| أما في حالة العكس فلن تعود 
بنتيجة » والآن لنفترض أن شخصا ما قام بكتابة الجزء التالي في مربع النص الأول : 


1nsert 1into Users values (l1, 'NewUser','1234—(' 
لن يدخل هذه المرة »› ولكنه سيقوم باضاهة هذا المستخدم للجدول » في المرة اللاحقةه سيكون‎ 
!!! 1234 وبرقم سري‎ NW بامكانه الدخول باسم 56۲ل‎ 
: آو ابسط من ذلك › لو قام بكتابة الجملة التالية في مربعيي النص » فهذا سيحقق الشرط‎ 
a' or 't'='t 
5 هل تخيلت حجم الضرر الذي يمكن آن يسببه هذا الموضوع‎ 
يمكن أيضاً أن يقوم بكتابة:‎ 
drop table Tablename 
!!! وفقط‎ 


تفيدك ال Stored Pred ure‏ فى آن أي قيمة يتم ادخالها داخل المتغير تعامل معاملة متخير 


فقط ولا يمكنها التنفين أبدا » ويمكننا عملها بطريقة أخرى سنتعرف عليها لاحقا ... 
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4. 5. العلاقات 


قم بعمل جدول فرعي متلا نضع فيه المشاريع التي يعمل عليها كل موظف» سيكون الناتج 


شیا متل هذا 


|1 Employee _ ID Project Name 
| Traffic System 
15 

15 

Rowad 


Rowad 


ارا 
هم زم م ك ا Tî‏ 


Rowad 
F# NULL NULL 


الصورة /1/7. 9. اضافة جدول جديد. 
لربط العلاقات » من القائمة الجانبية ستجد 0i۳‏ عasطData‏ . قم باختيار Add New‏ وقم 


بسحب القيم التي تود ربطها في العلاقة بالشكل التالي مثلا: 


eqs e EH SSS î “Sh ا‎ E 2 2 - ت‎ 
E <3 xX dbo.Diagram1: Dia_.xpress. Employee) | Projects: Queryla.lesprness Employee] | dbo.Projects Tab... xpress Employee)" | 2 
3 3 ا‎ ۹ 
ا‎ Data Lonnerctions 
1- lj ahmed-pesqlenpress. Employee. 
- ٍ 
- a Table! Ad Hew Degol Projects * 
- En &] Refresh mp! Ê i 
8- I fn uj Priperties ا‎ Ti : ا‎ Ermpleyêe_ID 
E PR ا[‎ 


[First Narme] [Freject Mame]‏ اام 


* 


- Û Tiews 
=- J] Stored Procedures [lazt Narmê] 
H- El GetÃAgqe Age 

4- J] Functiens 

A- Lg Synonyms 

I= Û Types 

A- O Aerembliez 
1- a Servers 

a 


E Toolbar = Server Expl... jJ Data Sources ا‎ 3 
.Database Dia39۲a°^ الصورة 17. 10. مخطط العلاقات بين الجداول في قاعدة البيانات‎ 


هنا نكون قد انتهينا مما نحتاج إليه كثيرا فى 5٩| 56۲۷8١‏ لو كنت تحب التعرف على المزيد في 


عائم 56۲۷٥8۲‏ )50 يمكنك البدء من هنا: 


رابط گے 
http://msdn.microsoft.com/en-us/sqlserver/default.aspX‏ 
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5. الوضعد الوتصل 


ConnectionStringBuilder JI zg Jماعتلا‎ .1 .5 


يوفر لك هذا الكائن طريقة تفصيلية لبناء ال S٣١١٤‏ ”oاأcمconn‏ الخاص بك » هذا 


المتال يوضح الأكثر استخداما: 


SQGALCONHEOCUCIONSCEINGOBULLESE CnNSLrEBULLIEE = HEW SOLCONNECELONSTCEINOBULLEEC 
cnStrBullder.InitlalCatalog = "Employee"; 

CNSEEBULLIGEE. DataSource. = CFT(LGOCAL} \(SOLELXPRESST:, 
CHNSTLEEBULLIET.CONHESCLCLIMEOUE. = SUF 

CHNSEEBULLOSE.PASSWOLG = FIN, 

CNSLTEFBULLOEEF.USEFID = FAME"; 

SqlConnectlion cn = new SqlConnectlon(); 

Cis CONNEC LONSETING = CNSTEEEULLUETL CONNECT LONSTLEIRNG} 


VB.NET 


Dim cnStrBuilder As New SqlConnectionStringBuillder () 
CASTEEBULLdAEF.InItIialCatalog = "Employee" 
CEHNSEEBULIIEE.DaLaSoOuUrEGEE = F(lGOCALF \SOLELXPEROT™ 
CnSTEBUILILder:ConneclTimeouüutlt = 30 
CHNSTEBULLOSF.PASSWOLI =5 FILA 

cnStrBulilder.UserlD = "Ahmed" 

Dim cn As New SqlConnection () 

CR: CONNEC LONSETING S3 CNSTTEEULLIOET CONNECT LONSTLEING 
cn. Open () 


حیت تجد: 
cata lO3‏ 1a1ا1.ہ]‏ لتحديد اسم قاعدة البیانات 
a0٥‏ اDa‏ لتحديد مسار قاعدة البيانات 


ڄ11meoutاnneeتC‏ لتحديد الوقت الذي يمكن استغراقه من اجل محاولة الوصول إلى قاعدة 


البيانات او ايقاف العملية عند انتهاءه. 
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dاPaSSwNuo‏ - كلمة مرور قاعدة البيانات إن وجدت. 
se]‏ - اسم المستخدم لقاعدة البيانات إن وجد. 
هناك الحديدذ من العناصر الأخرى أيضا يمكتنك استعراضها من هنا: 


رابط ھے 
http://msdn.microsoft.com/en-‏ 
us/library/system.data.saqlclient.sqalconnectionstringbuilder members.aspX‏ 


5. 2. التعارل وع الفئۂ C٥m٣۳٣237٣4٩‏ 


ال C0٣٩0‏ هي جملة الاستعلام التي نستخدمها لتنفين اي نوع من العمليات على قاعدة البيانات» 


تنقسم إلى ثلاث انواع رئيسيه: 


StoredProcedure -‏ 
TableDirect -‏ 
Text -‏ 
في المثال السابق استخدمنا ال ك١١C0"۳3)‏ كجملة استعلام نصية مباشرة أ×1€» كانت بالشكل 
التالي مثلا: 
C#‏ 


SLCrFING SILSOL =. "SeleGL * From. Emo Lovee Info"; 
SGLCoOMMANGd. mYCOoOMMAaANQAd = He SOLCOMMANC(BEESOL;y,. CN); 


VB.NET 


Dim SİÙEFSOL AB SLFING = "Select * From Emplovee Info" 


Dim myCommand As New SqlCommand (strSQL, cn) 


SqlCommand testCommand = new SqlCommand () ; 
testCommand. Connection N 
testCommand. CommandText = strSQL; 
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VB.NET 


Dim testCommand As New SqlCommand () 
testCommand.Connection = cn 
testCommand. CommandText = strSQL 


اتناء التنفين قمنا بربطها مباشرة باستخدام e۸20 € 1٣‏ اuاecعx×اE‏ . في الواقع هتاك عدة طرق 


عدة طرق للتنتفيت: 


eReaderاxecut[:‏ فى حالة كون الناتج عدد كبير من البيانات » يتم تعريف 
DataReader‏ وربط الناتج به لقراءته » وهو ما تعرفنا عليه في مراحل سايقهة. 
teNondueryاxecut[:‏ في حالة عدم وجود نواتج اصلا > متل تعريف عملية da٤‏ مuل‏ أو 


عاط حيث الناتج الوحيد هو تنفين العملية من عدمه › سيتم التعرف عليه لاحقا. 


arاecaاExecu:‏ في حالة كون الناتج وحيد » مثل الاستعلام عن فقط عن الاسم الأول 
للشخص صاحب الرقم القومي ××××××. 


eXxm]lReaderاExecu‏ : تنفینت الناتج واعادته علی شکJ XML‏ یت؛ڙۂ تoعريف Xxm1Reader‏ 
وربط الناتج به لقراءته » يمكنك الرجوع إلى دروس ا۷N×‏ لمعرفة المزيد عن ۸٤206۲١‏ 1"×. 
ستخIıم Parameterized Command Objects J|‏ 


كما لاحظت من الدرس الذي تحدثنا فيه عن ال |١[6٣)|0١‏ ]ا50 » فإن الطريقة التقليدية 
لجمل الاستعلام تظل خطرة » لذا نبيدا باستخدام ۶3۲3۳6۲6۲5 لجمل الاستعلام لدينا ايضاً حتى لو 
لم نکن نتعامJل .Stored Procedure gz»‏ 


لو أخذنا المتال التالى للتحربية: 
string strSQL = "Select [First Name]|+t[Last Name] as [Full Name], Age F'rom‏ 


EMGOLGTES Where IDS" FF ID; 
SG LCONNEANO., MY COMMANO. = RE SOLCOMMANTCCSTEESOLE, CRF; 


VB.NET 


Dim strSQL As String = "Select [First Name]+[Last Name] as [Full Name], 
From Employee where ID=" + ID 
Dim myCommand As New SqlCommand (strSQL, cn) 
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ستجد اننا قادرين بمبادئ ال ١0|أ٤۸[6١|‏ ا50 من اختراق هذا النظام بسهولة › لذا البديل يكون 


باستخدام وتعرڍيف :Sq¶1LParametlerF‏ 


string sql = string.Format ("Select [First Name]+[Last Name] as [Full Name], Age 
From Employee where ID=@ID"); 
USING (SO LCOMmMaNC. CMA. = Ne SCOLCOMMANGA (CSGL, THIS. SOLCD)) 
| 
// Fill params collection. 
SqlParameter param = new SqlParameter (); 
param.ParameterName = "GID"; 
param.Value = 10; 
param. SqlDbType = SqlDbType. Int; 
cmd.Parameters.Add (param) ; 
/7 فنا مكل بان الاساعاع هاا في‎ 
cmd. ExecuteNonQuery (); 


VB.NET 


Dim sql As String = String.Format ("Select [First Name|l+[Last Name] as [Full 
Name], Age From Employee where ID=@ID") 
Using cmd As New SqlCommand (sql, Me.sqlCn) 
FILL DOCS COLILECETONS 
Dim param As New SqlParameter () 
param.ParameterName = "@ID" 
param.Value = 10 
param. SqLDbType = SqlDbType. Int 
cmd. Parameters. Add (param) 


قفا مكل ماك ااستعغاح حجهاهة ية ' 
cmd. ExecuteNonQuery ()‏ 


EQ. USING 
هنا كما لاحظت قمنا بتمرير باميترات إلى جملة استعلام قمنا نحن بكتابتها ضمن البرنامج.‎ 


الحالة التانية التى لدينا وهى الشائعة الاستخدام هى حالة تعريف 50۲۴4 
Procedure‏ 


لو افترضنا مثلا جملة الاستعلام التي أنشأناها في أول درس لنا بالشكل التالي: 
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ALTER PROCEDURE dbo. GetAge 
cCoORNIITELOR. DBE, 


CEIESETHAMGE  CRHAFILO),  OUTpUE 

AS 

SELECT @firstname= [First Name] from Employee_info where age > @conditilion 
WHERE age > @condition 


وقمنا بحفظها باسم 6٥٤29‏ » الآن نريد استدعاءها من البرتامج »› یتم ذلك بالشكل التالى مثلا 


using (SqlCommand cmd = new SqlCommand ("GetAge", cn) ) 
| 
cmd. CommandType = CommandType.StoredProcedure; 
SqlParameter param = new SqlParameter (); 
param.ParameterName = "@condition"; 
param. SqGLDbIyYpE = SgGLDGTYEoEe. Int; 
param.Value = myAge; 
param.Direction = ParameterDirection. Input; 
cmd.Parameters.Add (param) ; 


param = new SqlParameter () ; 
param.ParameterName = "G@firstnameName"™; 
param. SqlDbType = SqlDbType.Char; 

Pari. = OF 

param.Directlion = ParameterDirection. Output; 
cmd.Parameters.Add (param) ; 


CMO. EXECUTCENONOUEEY OF} 
MeSSaGEBOR. SNOW (COMC,.PFAFAaAMELEES (FF OEITST NENE" A ValiêE.TOSEFEINO OJ? 
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VB.NET 


Using cmd As New SqlCommand ("GetAge", cn) 
cmd. CommandType = CommandType.StoredProcedure 


Dim param As New SqlParameter () 
param.ParameterName = "G@condition"™ 
patam:SGLIDDTYpGe. = SGLIDOTVEE. INE 
param.Value = myAge 

param.Direction = ParameterDirection. Input 
cmd.Parameters. Add (param) 


param = New SqlParameter () 
param.ParameterName = "(G@firstnameName" 
param. SqlDbType = SglDbType. [Chaz ] 
param.Size = 10 

param.Direction = ParameterDirection. Output 
cmd.Parameters. Add (param) 


cmd. ExecuteNonQuery () 
MessageBox. Show (cmd.Parameters ("G@Gf1irstName").Value.ToString () ) 
ENG. USING 


كما لاحظت » قمنا بتعريف نوع الل 0010۳0210 هنا نظرا لإن الافتراضي هو ا×٠1»‏ ومن ثم قمنا 
بتعريف متغير الدخول ومتغير الخروج أيضا. 


5. 3. التعامل و2 DataReaders‏ 
كما شاهدت في المثال السابق » يمكن قراءة البيانات من ٣ع‏ ل2٠۸‏ 2ه( بالشكل التالي مثلا: 


SCEIRNG LLSEITEM = WF; 
while (myDataReader. Read () ) 
{ 
listltem = "Full Name: " + myDataReader ["Full Name"|.ToString() + " Age: 
+ myDataReader ["Age"| .ToString () ; 
li1stBoxl.lItems.Add(listItem) ; 
} 


VB.NET 


Dim listItem As String = "™" 
While myDataReader. Read () 
listIlItem = "Full Name: " + myDataReader ("Full Name").ToString() + " Age: " 
+ myDataReader ("Age") .ToString () 
l1stBoxl.lItems.Add (list Item) 
End While 
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حيث تعود الدالة ۸830 ب ٥٣آ‏ ما دام هناك سجلات للقراءة» وفي نفس الوقت مع كل استدعاء 
لها تنتقل إلى السجل التالي... 

طريقة القراءة تكون بتحديد الحقل المراد قراءته | myDataReader [ "Age"‏ او بتحدید 
رقمه في الترتىت [2] 2۸62367 y0‏ .مثا. 

الخاصية ا١ ١1٥۴10٣۳01‏ تعطينا عدد النتائج المعادة» لذا يمكننا تنفين نفس العملية السابقة 
بالشكل التالي: 


EOE (BMT 1 ; 1 < myDataReader.FieldCount; 1F) 


| 


listltem = "Full Name: " + myDataReader ["Full Name"|.ToString() + " Age: 
+ myDataReader ["Age"].ToString (); 

LLSLBOSLl. IEEMS.AQIGGQ{(LISTETTEEM); 

myDataReader.Read(); 


VB.NET 


For 1 As Integer = Û0 To myDataReader.FleldCount = 1 
listlItem = "Full Name: " + myDataReader ("Full Name").ToString() + " Age: " 
+ myDataReader ("Age") .ToString () 
LISTBOXL. Items. AQdd (LISEITEEN) 
myDataReader . Read() ; 
NX 


: NextResult 


تمكنك ال (313۸8208٤۲‏ من تعريف جملتي استعلام لاعادة الناتج فمثلاً لاعادة اسماء 
المو ظفين تم اسماء المشاريع: 


STEFING SIESOL = FSeleclt * From Employee inîlojSelect * from projects"; 
SqLCGOoOMmMand myCommand. = Hew SGlCommand{(STEEFSODL, CN); 
do 
{ 
while (myDataReader. Read () ) 
{ 


LO (inl 1 = O0; 1 < myDaltaReader.FieldCount; 1FF) 


listItem "Dalga: FT FF MVDaALaReader [U]: TOSTEILNG O) 
ا‎ 
} 


while (myDataReader.NextResult ()) ; 
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Dim SÜESOL A8 SLLCINGg = FS elLleCL * From EmolLoyes .InNI0Se6LeCE * Trom pgGlEojecLE" 
Dim myCommand As New SqlCommand (strSQL, cn) 
Do 


While myDataReader. Read () 


For 1 As Integer = Û0 To myDataReader.FleldCount = 1 
listlItem = "Data: " + myDataReader (0) .ToString () 
NEXE 
End While 
Loop While myDataReader.NextResult () 


Data Access Layer .6‏ 
في التطبيقات الجدية » لا يتم وضع الكود مع المظهر مع سيناريو وعمليات البرنامج اضافة 
لطبقة البيانات» بل يتم فصل كل منها في طبقة منفصلة وهو ما يعرف باسم ۷€۲5ه۵| » لمعرفة 

المزيد عن هذا الموضوع يمكنك مراجعة الرابط التالي: 


رابط قي 


http://www.al-asiri.com/ShowRecord.aspx?Action=OpenG&sid=cefa426c-d9e0-4625-a66b- 


8/fd6O82f89 


و هناك تطبيق انضا هنا 


رابط ھے 
http://vb4arab.com/vb/showthread.php?t=10969‏ 
في هذه المرحلة » سنحاول عمل |3۷6١‏ 23ل تكون خاصة بالتعامل مع قواعد البيانات لتحقيق 


چە تير تين : 
- اعادة استخدامها اكثر من مرة. 


- في حالة وجود خطاً يتم تحديد مصدره بسهولة › وفي حالة التعديل لا يتم التعديل سوى على 


هذه الطبقهة. 


وفي هذه الحالة لن يتطرق مبرمج اي جزء من البرنامج إلى كيفية الاأتصال بقاعدة البيانات › 
حيث ان كل ما لديه هي مجموعة من الدوال للاتصال والحذف والتعديل وكل العمليات التي 


يريدها مع بارميترات مناسبة دون التدخل فى كيفية الاتصال بقواعد البيانات تماما. 
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يمكنك عمل هذه الطبقة بعدة طرق › ابسطها استخدام يعض البرامج الجاهزة التي تقوم بهذه 
العمليةه وتقوم بعمل استخراج لهذه ال ۷€۲ھ| حسب لغة البرمحة التى تحددها › ایضا بوفر لڪ 


الدوت نت طريقة لهذه العملية › الطريقة الثانية هي الطريقة اليدوية... 


فى العحالة التالية ستتعرف على متال يسيط لهذه العملية من اجل الموظفين » يمكن تطبيق نفس 
المفاهيم على البرامج الحدية احقا. 


1- عمليات فتح واغلاق قواعد البيانات 


private SqlConnection cn = new SqlConnection (); 
public ¥O10- OpéenConiecltlon (STEInéG COnNECTLIONSTEEINO) 


+ UONNHECLCLONSTEFELING. =. COANECEIONSTCEING, 
. Open(); 


BUBLLT VGIC CloseCconineclLon () 


| 


CNC LOSE, 


} 


VB.NET 


Private cn As New SqlConnection () 

PUDILIILG. Sub OpenConnEeCTIOnNn (BYVAL COoONnNECELONSTEING A8 SLEILNG) 
CH.CONRECTIORSTEEING = CONNECTIONS ECETIHG 
cn. Open () 

End Sub 

Public Sub CloseConnection () 
cn.Close () 

En Sub 


2- سيتاريو عملية الحذف. 


فى هذه العملية سنتیح للمستخدم حذف الموظف باسمه . او حذف الموظف برقمه › او 
حذف الموظف متلا بدلالة العمر وبعدة اختيارات سواء اكبر او اقل او يساوي مثلا مع استخدام 


مبدأ ال 1031۸8 Ove‏ ومبدأ عمل ٤٣U۳5‏ ایضا واللذان تم شرحهما في دروس سابقة. 


“* لاحظ ان مهمتك في هذه المرحلة هي عمل كل الدوال التي يمكن استخدامها في البرنامج 
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CH 


public void DeleteEmployee (int 1d) { 
string sql = string.Format ("Delete from Employee where ID = {0}",1d); 
USING (SOLCOMMARE COMO 3 HEV SOLCOMMANCO(SOL, CRIS. SOLER) 
{ 
EFYl 
cmd. ExecuteNonQuery (); 
ا‎ 
catch (SqlExceptlion ex) { 
Exception error = new Exception ("some error occures: ", ex); 
LAFOWN erroLE; 


1 
} 


public void DeleteEmployee (string name) { 


string sql = string.Format ("Delete from Employee where [First Name] = 
U, Mame, 
USING .(SGLCommand Cma = new SolCommand (Sol; THIS. SCOLCD)) 
e | 


cmd. ExecuteNonQuery () ; 

CALLER (SGLEXCEDLIOS ERP 
Exception error = new Exception ("some error occures: ", ex); 
LITON GErFOL; 


} 
} 


enum deletecondition { 


morethan = Û0, 
lessthan = 1, 
equal = 2 


} 


publlc void DeleteEmployee (int age, deletecondition delconditlon) { 


SELIG GGL = e, 
1f (delconditlon == deleteconditlion.morethan) 
Sql = string.Format ("Delete from Employee where age > {0}", age); 
else 1f (delconditilion == deletecondition.lessthan) 
Sql = string.Format ("Delete from Employee where age < {0}", age); 
else 
Sql = string.Format ("Delete from Employee where age = {0}", age); 
using (SGlCommand. emd = new SalCommand (Sol; ThALS.SGLICD)) 
{ 
CET 
{ 
cmd. ExecuteNonQuery () ; 
} 
catch (SqlExceptlion ex) 
{ 
Exception error = new Exception ("some error occures: ", ex); 


Lhrow error; 
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VB.NET ڪو د‎ 
Public Sub DeleteEmployee (ByVal 1d As Integer) 

Dim sql As String = String.Format ("Delete from Employee where ID = '{0}'", 
1d) 


Using cmd As New SqlCommand (sql, Me.sqlCn) 
LEV 
cmd. ExecuteNonQuery () 
Catch ex As SqlExceptlon 


Dim [error] As New Exception ("some error occures: ", ex) 
THAFON [SFEOE | 
ENT IF 
End USING 
End Sub 
Publlc Sub DeleteEmployee (ByVal name As String) 
Dim sql As String = String.Format ("Delete from Employee where [First Name | 


= TIO, THAME) 
Using cmd As New SqlCommand (sql, Me.sqlCn) 
LEY 
cmd. ExecuteNonQuery () 
Catch ex As SqlExceptlon 
Dim [error] As New Exception ("some error occures: ", ex) 
THEO. [| GFETOEF | 
End. TEY 
End USING 
EN. SUB 
Enum deletecondition 
morethan = 0 
lessthan = 1 
equal = 2 
end enum 


Public Sub DeleteEmployee (ByVal age As Integer, ByVal delconditlon As 


deletecondition) 

IM. SOL SE SEEING SS e 
lf delcondition = deletecondition.morethan Then 

Sql = String.Format ("Delete from Employee where age > {0}", age) 
Elself delconditlon = deleteconditlon.lessthan Then 

Sql = String.Format ("Delete from Employee where age < {0}", age) 
Else 

Sql = String.Format ("Delete from Employee where age = {0}", age) 
ENC. TE 
Using cmd As New SqlCommand (sql, Me.sqlCn) 

LEY 


cmd. ExecuteNonQuery () 
Catch 6x As SGLEXCEeptILoN 


Dim [error] As New Exception ("some error occures: ", ex) 
LAFOW [SELGOE | 
ENC TEY 
End USING 


ENC: Sub 
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3- سيتاريو عمليات الاضافة والتعديل 


بنفس الطريقة يمكن التعديل يعدة خيارات او الاضافة بعدة طرق. 

بالنسبة لعملية الاضافة ستنجبره على ادخال الاسم الأول والآخير فقط. 

والتعديل ينبغي أيضا أن يكون بنفس الصورة › ولكن منعا للاطالة سنعدل بدلالة الرقم الاسم الأول 
فقط. 


public void InsertEmployee (string fname, string lname, int age) 
| 
// Format and execute SQL statement . 
SLEING SQL = SEEING. FOEMETL{(TTRSEEE Ihilo EmMplovcee IAG" 7F 
"([First Name|, [Last Name]|) Values" + 
"(TOF T{ILIF')"; fname, 1namée); 
USING (SGOLCoOMmManNd. CMO. = Hew SGlCommand (Sol; TOOLS. SoOLCD)) 
| 
cmd. ExecuteNonQuery (); 
} 
} 
public vo1Qd UpdateEmployee (int id, String newFirstName) { 


string sql = string.Format ("Update Employee Set [First Name] = '{0}' Where 
ID = IT, 


newFirstName, 1d); 


USING (SOLCOMMENG Emad. = Hee SGICOMMANG(CSGL, EMS. SGLICNY) 1 
cmd. ExecuteNonQuery (); 


1 


VB.NET 


Public Sub InsertEmployee (ByVal fname As String, ByVal lname As String, ByVal 
age As Integer) 


' Format and execute SQL statement. 


DIM SGL A8 SLEINT =5 SULTING EOEMSAL(TTOASEEE Ito EmMoGlovecs INTO" FF T([FIEST 
Name], [Last Name|) Values" + "('{0}', '{1}')", fname, lname) 


Using cmd As New SqlCommand (sql, Me.sqlCn) 
cmd. ExecuteNonQuery () 
ENC HSIN 
End Sub 


Public Sub UpdateEmployee (ByVal id As Integer, ByVal newF'irstName As String) 
Dim sql As String = String.Format ("Update Employee Set [First Name] = '{0}' 
Where ID = '{1}'", newFirstName, id) 
Using cmd As New SqlCommand (sql, Me.sqlCn) 
cmd. ExecuteNonQuery () 
ET USING 
ENC Sub 
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4- سيتاريو عمليات البحث. 


قبل البدء في سيناريو عملية البحث › نود آن نشير إن الدوال السابقة ينقصها شيء هام وهي 
عملية ال 3۲3۳66۲١‏ لتلافي المشاكل الناتجة عن ال ١٣٥٤ع‏ ز١|‏ اه5 لكن كانت الامثلة السابقة 
للتوضيح فقط » في عملية البحث الآن سنطبق ما تعلمناه لحل هذه المشكلة. 
ستنجرب عملية بحث واحدة عن الاسم الأول والآخير للأشخاص برقم 0| معين › ا تنسى أذنڪ 
مطالب في 03a |۵۷٥١‏ بعمل كل الطلبات التي قد يحتاجها مبرمج عمليات البرنامج لكي لا يحتاج 
لكتابة حتى جملة استعلام واحدة. 


Stored Procedure Jaaڊ‎ %g| سنق‎ 


CREATE PROCEDURE GetF1irstNameBy ID 
CId ink; 


@GfName char (10) output 
AS 
SELECT @fName= [First Name] FROM Employee_info WHERE ID > @id 


ومن ثم نقوم نعرف الدالة الخاصة بعملية البحث بالشكل التالى: 


PUBLIC SLFING SELECENaME{INT 10) 
{ 
using (SqlCommand cmd = new SglCommand ("GetFLrEStNameByID", Cn)) 
{ 
cmd. CommandType = CommandType.StoredProcedure; 
SqlParameter param = new SqlParameter (); 
param.ParameterName = "G@id"; 
param. SqlDbType = SqlDbType.Int; 
param.Value = 1D; 
param.Direction = ParameterDirection. Input; 
cmd. Parameters. Add (param) ; 
param = new SqlParameter () ; 
param.ParameterName = "G@fName"; 
param. SqlDbType = SqlDbType.Char; 
param. Sizê = 10; 
param.Direction = ParameterDirection. Output; 
cmd.Parameters. Add (param) ; 
cmd. ExecuteNonQuery (); 
return cmd.Parameters ["G@GfName"].Value.ToString (); 
ر‎ 


return carPetName; 
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VB.NET 


Public Sub InsertEmployee (ByVal fname As String, ByVal lname As String, ByVal 
age As Integer) 

° FOIMIL ANd CEEOL SOL SEO EMEL 

DIM SOL &8 BSLEEING = SCTINO.FOEMSE (TINSEEL IMC o. Emo1lovec_ inTFo" FF T(LEILESE 
Name], [Last Name|) Values" + "('{0}', '{1}')", fname, l1lname) 


Using cmd As New SqlCommand (sql, Me.sqlCn) 
cmd. ExecuteNonQuery () 
End Using 


ENG SUB 
Public Sub UpdateEmployee (ByVal id As Integer, ByVal newF'irstName As String) 


Dim sql As String = String.Format ("Update Employee Set [First Name] = '{0}' 
Where ID = '{1}'", newFirstName, id) 
Using cmd As New SqlCommand (sql, Me.sqlCn) 
cmd. ExecuteNonQuery () 
EN. USING 
ENCU Sub 


لخا يمكنك فصل ال 031313۷٥١‏ حتى في اأ منفصلة لضمان تشغيلها مع اكثر من تطبيق 
في الاستخدام لاحقاً وعلى افتراض ان الفنة ككةا٣‏ لطبقة البيانات 03314۷6٣‏ تحمل الاسم 


laye ٣‏ taة(۷.‏ و لتطبيق عملية مثل الحذف كل المطلوب منك هو سطرين مثل الآتي: 


کی 


myDataLlayer example=new myDataLayer (); 
example. OpenConnection (myconnectionstring) ; 
example.DeleteEmployee (10); 
example.DeleteEmployee ("Ahmed"); 


VB.NET 


Dim example As New myDataLayer () 

example. OpenConnection (myconnectionstring) 
example.DeleteEmployee (10) 
example.DeleteEmployee ("Ahmed") 


وفقط!!! 

وبتفس النظام لو كانت اأ قم باستيرادها فى برنامجك ثم قم باستخدامها بنفس الطريقة. 

لو احظت » بهذه الطردقة اصبح المبرمج لسيناريو البرنامج ولباقي عملياته بعيدا كل البعد عن 
قواعد البيانات » كما ان تقسيم العمل أصبح أوضح وبالتالي اصبح بالامكان تدارك المشاكل 


بصورة آو ضح. 
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Asynchronous Data Access .„ / 


فى هذه الجزئية ستحاول تعلم طريقة تمتعنا من عمل عدة عمليات على قواعد البيانات فى 
نفضس الوقت لمنع التضارب » ومع ان المشكله ستواجهنا بصورة اكبر في الوضع المنفصل 
Disconnected‏ والذي هو موضوع درسنا القادم › إا اننا ستنجرب الحل في هذه العجالة السريعة › 


جرب المثال التالي: 


SqGLlConnéecltion eh = new SGLIConNECTILONn (7 

cn.ConnectionString = @"Data Source= (local) \SQLEXPRESS; Integrated 
SECUELT TSS CEPI F7 

FIRNICLAL CaACALOG=AULCOLOEFASYACRAEONOUS Processlné=LFEue"; 

cn. Open(); 


VB.NET 


Dim cn As New SqlConnection () 

cn.ConnectionString = "Data Source= (local) \SQLEXPRESS; Integrated 
Securlty=SSPI1I;" + "Initial Catalog=AutoLot;Asynchronous Processing=true™ 
CH. ODER () 


آو ل خطوة قمنا بها هي تعريف lائgضزغع Jı ga Asynchronous Processing = IFUe‏ 
C010 13‏ بهذه الطريقة اصبحنا قادرين على الاستفادة من الدوال التالية: 
BeginExecuteReader ()‏ ,و )( EndExecuteReader‏ 


EndExecuteNonQuery () ,و‎ BeginExecuteNonQuery () 
EndExecuteXxmlReader () ,g, BeginExecutexmlReader () 
وسنبداً بتآخیر‎ E xecuteReader و‎ BeginExecuteReaAdeF ستجرب ا¥آن عل‎ 


خملة الاإستعلام الأؤتى تخس توان مثلا: 


SLFInGS STESOL = - "WailtFor Delay 'OU;O0U0:05';Select .* From Emoloyee info"; 
SG LCOMMANG. MYCOMMARG = HEW. SGOLICOMMNARNCO{(SEESOL, CN? 


Dim STESOL A8 SEFING = "WailFor Delay 'UU:U0;:05';Selecl. * From Employee _ info" 
Dim myCommand As New SqlCommand (strSQL, cn) 
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IAsyncResult 1tfAsynch; 
LLfAsynch = myCommand. BegqinExecuteReader (CommandBehavior.CloseConnection) ; 


VB.NET 


Dim i1itfAsynch As IAsyncResult 
LLfEAsynch = myCommand. BeginExecuteReader (CommandBehavior.CloseConnection) 


while (!itfAsynch.IsCompleted) 
{ 
// مثلاً مؤشر قيمة تغيير‎ . 
System. Threading. Thread.SlLleep (1000); 


VB.NET 


While Not 1tfAsynch. IsCompleted 
Thread.Sleep (1000) 
End While 


الآن يما أنتا خرجنا من ال ص100 السابقة فهذا يعني انتهاء التنفيد الأو ل» اللآن سنقوم بتنفين 


العملية التي نريدها. 


SqlDataReader myDataReader = myCommand. EndExecuteReader (itfAsynch) ; 
while (myDataReader. Read () ) 
| 

MessageBox. Show (myDataReader [1|] .ToString ()); 


} 
MYDALAREACSESCLOSE j 


VB.NET 


Dim myDataReader As SqlDataReader = myCommand.EndExecuteReader (i1tfAsynch) 
While myDataReader. Read () 
MessageBox. Show (myDataReader (0) .ToString () ) 
End While 
myDataReader.Close () 
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Transactions .©‏ 
تعريف هذه العملية باختصار شديد هو وجود مجموعة من العمليات ل بد آن تتم سوية آو 
تتوقف سوية » المثال الأشهر لهذه العملية هي عمليات التحويل البنكية من عميل1 إلى عميل2. 
لذا خطوات العمل في قواعد البيانات ل بد آن تكون بالشكل التالي: 
- سحب 500 دولار من حساب عمیل 1. 
> ايداع 0 دو لار فی حساب عمیل 2. 
وهاتان العمليتان لابد ان تتم سوية » بمعنى لو تمت العملية الأولى ولم تتم العملية الثانية لانقطاع 
الاتصال مثلا فهذا غير مقبول » لذا ا بد ان يتم اعتماد العمليتين أو حذف اي عملية منهم تتم دون 


إذا قمنا بعمل ١10أ٧۸53ه۲]‏ سيتم تعريف هذه المجموعة من العمليات فى نظام قاعدة البيانات 
5 على شكل وحدة واحدة بحيث يتم تنفيذها سوية او عدم تنفيذها سوية. 
الفثة المسؤولة عن هذه العملية هى الفئة 101 [اC٤‏ 1۲21523 5)1 الموجودة ضمن مجال الأسماء 


ata. qy] c11ent‏ n.DعاSys.‏ هناك فتات أخرى يمكنها تطبيق هذه العملية ضمن مجال 
أسماء أ€¬. انشا فل 


em.EnterprliseServicesعاys:‏ تتيح لنا هذه الفثة الاتصال مع مكونات )0~N+‏ التي 
تقدم لنا الدعم في هذه العملية. 
rransactlons‏ .emnاyst:‏ تتيح لنا هذه الفئة بناء تطبیقات تدعم ال10۸5)٥٤ra۸53٣].‏ 
WO۴‏ و WW‏ : تمکننا هاتان الفتتان من تطبیق مبادئ ال ۲۵۸58۵٤٥10۸1‏ ایضا. 
حتى في نظم قواعد البيانات يمكنك القيام بهذه المهمة عن طريق تعريف Stored ۴۲0٤٥240۲۴‏ 
يقوم بعمل ra۸53 ٤†|0٥۸5‏ عن طریيق۸N٥|1RANSAC1 ROLLBACK,‏ و !| C0 MM‏ » يمکٽنڪ البدء 


في هذا النوع من هنا 
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رابط ھے 
http://msdn.microsoft.com/en-us/library/ms187844.aspX‏ 


في ۸00.1٥‏ تدينا الفئة 101 اc sa2‏ ^anءا B‏ التي تطبق الواجهة ۸52٤-1101‏ aء‏ اط 1(0 والذي 


يحتوي على الدوال الرئيسية التالية: 


publIcC 1interTrace IDbDTransaclIion ¥ IDiISsposablLe 


| 


IDOCONNECEIOS COoOnNNECLILORn { Gel; |} 
IsolatlionLevel IsolatlionLevel { get; } 
TOI COMNLE OS 

TOILC Rollback O; 


PubIICG Interface IDbTransacltion 
Inherits IDisposable 
ReadOnly Property Connection () As IDbConnection 
ReadOnly Property IsolationLevel () As IsolatlonLevel 
Sub: COMMIE 0) 
SUS ROLLBACK) 

End Interface 


يضيف لنا ال 101اC٤r2۸52آ‏ ]5 دالة جديدة هي 527٥‏ والتي تتيح لنا حفظ نقطة يتم 
الرجوع إليها في حالة الفشل في اتمام العملية بدل الرجوع في العملية بالكامل - لو كان هناك 
اجزاء من العملية أو العملية على مراحل. 

ابسط مثال على تطبيق هذه العملية » هو افتراض وجود جدول يحتوي على ( اسم العميل - المبلغ 
المودع ) وعندما نقوم بعملية تحويل من حساب إلى آخر نقوم بعملية بالشكل التالي: 


SqlCommand cmdGet = new SqlCommand ("update customers set total=total—-" + 
EOCAILMONEVELOSCELNGO(, 4# FF Where ILD" FF CUSTID.TLOSCELINGT O; CEB 


cmdSelect.ExecuteNonQuery () ; 

SqlCommand cmdSet = new SqlCommand ("update customers set total=total+t" + 
LCOCALIMORNEVLLIOSECEILNGO U) # FF Where ID" FF SUBDDIULTOSLEING Ug CORA, 
cmdSelect.ExecuteNonQuery () ; 
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VB.NET 


Dim cmdGet As New SqlCommand ("update customers set total=total—-" + 
EOCALMONEV.TOSLEING (J FF FF Whe ID" 1 COUSTID.TOSLEING (pe EN) 
cmdSelect.ExecuteNonQuery () 


Dim cmdSet As New SqlCommand ("update customers set total=totalt" + 
LOCaLmonEV: TOSLEING() E FT Whee ID" * SUBOLID:TOSLEINGUO CEN) 
cmdSelect.ExecuteNonQuery () 


في هذه العملية ولآي سبب كان قد يتوقف الجزء الثاني من العملية › لذا ستحاول اخبار نظام 
قاعدة البيانات بأآننا سننفذ كلا العمليتين فى نفس الوقت › ولو لم يتم تنفيذن واحدة منهما سيتم 


SqlCommand cmdGet = new SqlCommand ("update customers set total=total—-" + 
EOCALMONEV.TOSLEIRNG() # * Where ID" FF CEUSTCID.TOSLCEINGT(C E CRF 
SqlCommand cmdSet = new SqlCommand ("update customers set total=total+t" + 
LOCSLIMONEVTTOSEEING O F FF NEO TG" FF SUDOID. TOSECEINGCN, CR; 
SOLITONS CLIO SGOLLCT = ULL 
LEY 
{ 
SGOLEE 3 SOLCH.BEGINLIEanSACLCIOR O 
CEmMOAGEE: TEAanNSACTILON = SGIEE)} 
CEMOASEE.TEANSaACEION = SGOLEEFE} 
cmdGet.ExecuteNonQuery () ; 
cmdSet.ExecuteNonQuery () ; 
1E (tEHrFOWEX) 
{ 


throw new ApplicationException ("all operatlon canceld, some errors 
GCCUEES TY; 


STOLE COMMA, 


} 

catch (Exception ex) 

{ 
MessageBox. Show (ex.Message) ; 
LX. ROLLGACEO; 
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VB.NET 


Dim cmdGet As New SqlCommand ("update customers set total=total-" + 
CoOlCalmonevyv. TOSEEINnNG (J FF ™F where ID" + CUSLTID. TOSTCFING O; CM) 

Dim cmdSet As New SqlCommand ("update customers set total=total+t" + 
LOCaAIMONEYV2 TOSLCEING(, FF ° Whore TID" FF SUDOID.TOSTEIRNG(N, CPD) 

DIM SGOLLE. KS.  SCOLTIEANSACELORD = NOE RING 

LIEV 


SGLIEE 53 SGLICR. BEGIRNTFAanNnSaCTLoOoN (0) 


cmdGet. Transaction = sqltr 
cmdSet. Transaction SGLEE 


cmdGet.ExecuteNonQuery () 
cmdSet.ExecuteNonQuery () 
lf throwEx Then 
Throw New ApplicatlonExceptlion ("all operation canceld, some errors 
occures"”) 
End. LE 
GLEE; COMMLE 
Catch ex As Exception 
MessageBox. Show (ex.Message) 
LCE EOLLDACE 
End TE 


كما لاحظت . نقوم ببدء عملية ال ١0|أ۸53۳ه۲]‏ » وما لم يحدث أي خطاً فلن ندخل فى الشرط 


ولذا سيتم تنفيت Commit alla‏ لتنفين العمليتين واعتمادهما › أما فى حالة حدوث اي خطاً 
فسنقوم برمى 101ا6عcء×£٤‏ 0۷ا n‏ ا والذي ينقلنا مباشرة إلى 1٤21ع‏ لنقوم هناك باستدعاء 


الدالة مع ةط1 R٥01‏ من اجل الغاء جميع التآتثيرات التي حدثت. 


لو كنت تود تجربة هذا المتال لمعرفة كيفية حدوثة « جرب جعلJ anı‏ ©®FUت=LhiroWEx‏ 
وجرب ما یحدث. 

لو جربت مثالك الآن ستجد ان قيمة مبلغ العميل 1 مثلا لم تتأآثر » آما فى حالة عدم وجود خطاً 
فى الجملة التثانية فستجد ان الكمية المحددة من المبلغ قد تم نقلها من عميل 1 إلى عميل 2. 
**طبعا في تطبيقاتك الجدية لن يكون نظام الايداع والصرف بهذا الشكل › بل في العادة سيكون 


هناك جدول او اكتثر من جدول يحتوي على العمليات المجراه لكل عميل من ايداع وصرف وسحب 
و خلافه. 
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9 . الوضع الرنفصل 


في دروسنا السابقة اقتصر حديثنا في تقنية ۸00.1٥‏ عن الوضع المتصل |3۷٤۲‏ dعاء‏ ”١ء‏ وهو 
الذي ينشاً رابطة مباشرة بينك وبين قاعدة البيانات بحيث تؤثر جميع تعديلاتك فيها لحظيا › 
الجزء الثاني الذي تقدمه لنا هذه التقنية هي امكانية تطبيق الوضع المنفصل €⁄3| إ€†٥disco^"e‏ 
والذي يسمح لك بالتعامل مع قاعدة البيانات في الذاكرة عن طريق مجموعة من الفثات ومن ثم 
نقل كافة التعديلات مرة واحدة إلى قاعدة البيانات. 


يتم ذلك عن طريق عمل ١€م‏ 033403 يكون وسيط بين قاعدة البيانات وبين البرنامج » ومن ثم 


انشاء أ (032135٥‏ يتم العمل عليها ثم ارسالها مرة أخرى إلى قاعدة البيانات. 


تحتوي ال اعia5اa(‏ على أي عدد من eء1طaاaا7(a‏ تحتوي على ڪ>»lئنlت DaltaROW‏ 


.DalCaCoOLUMRS 


بقي ان نذكر بآن هذا الوضع لا يلزم فيه اي نوع من الاتصال مع قاعدة بيانات › فال خ45€اDa‏ 
هى نفسها قاعدة بيانات لذا سنواصل دروسنا فى البداية دون اي اتصال بقاعدة بيانات فعلية ثم نعود 


إليها مرة أخرى في نهاية هذا القسم . 
DataSet Jl .1.9‏ 


باختصار شدید Dataset Jı‏ هى عبارة عن صورة لنظام قواعد بيانات ولكن فى الذاكرة - مؤقت 


- » المحتويات الآأساسية لهذه الفئة هى: 


الفتات الأساسية 
1e0 lect Lon‏ ا Data‏ : الجداول فى هذه القاعدة. 
DataRelatlonCol lection‏ : العلاقات بين الجداول المختلفة. 


1onاlec‏ ا0ل yاerمProp‏ : ل¥اضافة خصائص إلى ال اa5€اDa.‏ 
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الخصائص الآساسية: 
DatasetName‏ : lاpwu.‏ 


٥1۸۵۲۷ تحدید الطریقة التی یتم بها عمل ع۵2٣56 للمحتویات › متل‎ : Remoا‎ in۴ ormat 


او XML‏ او غیره. 
الدوال الأساسية: 


hanes )(‏ امعAcc‏ : تطبيق التغييرات التي تمت على ال آ 31256( منذ آخر مرة تم عمل 


Accept changes‏ لها إلى قاعدة البيانات. 


Reject changes) (‏ : الغاء جميع التعديلات التي تمت على ال 03135٥61‏ منذ آخر مرة تم 
.lgî AcceptChaINGg®esS Jad‏ 


() عا : مسح كافة محتويات DataSet J|‏ 
() ما10 : نسخ الهيكل 1۲۵€أ 5۲۷٤‏ لقاعدة البيانات بما فيها الجداول والعلاقات 
() إ0 : نسخ الهيكل اضافة إلى جميع البيانات. 


zh 5S )(‏ اع : معرفة كافة التخييرات التى حدتثت لقاعدة البيانات منذ آخر مرة تم عمل 


.lgl AcceptChanges 


B001 ea¬ d1ميق‎ : Haschanges ()‏ تحديد فيما اذا كانت هناك تغبیرات قد تمت منن آخر 


مر ة تم AcceptCNaAI1JG8S Jane‏ م %. 

ALAC E u 3 METE (0) 

ReadXml ()‏ و () eXm1اNr1‏ : الكتابة والقراءة على شكل ×M|‏ من DataSet J|‏ 
ئژlء Dataset‏ : 


يمكنك انشاء (225٥1‏ عن طريق الكود بابسط طريقة بالشكل التالى: 
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CH 


DataSet empDataSet = new DataSet ("My Employee"); 


VB.NET 


Dim empDataSet as DataSet = New DataSet ("My Employee") 


آو يمکكتنڪ انشاءها عن طريق أدوات 1€1. » من قائمة الأآدوات 502a‏ ستجد (2125٤1‏ قم بسحبھا 


Teolbos 
3 All Windows Forma 
lk Pointer 
GF BackgroundWorker 
Ê BindingMavigator 
ty BindingSource 
[ab] Button 
[#] CherkBex 
FE CheckedlistBox 
E] ColorDialeg 
FÊ ComboBox 
E| CortetMenuStrip 
(Al DataGridView 
Dataset 
TH DateTimePicker 
Ee) DirectoryEritry 
3 Firate Saare ha 2 
3 Toolbox: | Server Expl... jg Data Sources | | 
frorlit 
Q0 Errors || Aj O Wamings | li 


Dezeriplion 


Chagzse a typed ar untyped dataset to add to the designer. 
| Typed dataset 


Hame: 


kreates an instance of a typed dataset class already in your project, Chose this option to work 
with a dataset that has a bualt-in seherma. See Help for details on generating typed datasets, 


û Untyped dataset 
Creates an instance of an intyped dataset class of type Sytem. Data. DataSet. Chogze thls option 


hen you wank a dataset with no schema. 
x Gera 


الصورة 1/7. 11. اضافة 25٥1‏ ا02 من نافذة الأدوات. 


9. 2 التعامل و2 DataTable‏ 


الجدول هو العتنصر الاساسي والذي سيحتوي لاحقا على صفوف وأعمدة » الخصائص 


والعناصر الآساسية له هي: 
() إ0 : نسخ هيكل الجدول. 


DataSet J : DataSet‏ الذي يحتوي على هذا العااهآ 
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PrimaryKey‏ : ال PrimaryKeYy‏ لهذا الجدول. 
rab leName‏ : اسم الجدول. 


Parent Relat 165‏ : العلاقات التي يتحويها هذا الجدول . 


DataTable Jl cءعluil‎ 


CH ) 


DataTable EmployeeTable = new DataTable (); 
EmployeeTable.PrimaryKey = new DataColumn[] { EmployeeTable.Columns [O0] }; 


VB.NET 


Dim EmployeeTable As New DataTable () 
EmployeeTable.PrimaryKey = New DataColumn () {EmployeeTable.Columns (0) } 


: DataSet yJ! DataTable ةiفاضا‎ 


CF ) ڪو د‎ 
)i 


empDataSet.Tables. Add (EmployeeTable 


VB.NET 2 


empDataSet.Tables.Add (EmployeeTable) 


DataColumn gg Jalعتll‎ .4 .9 


تمتل هذه الفتة عمود واحد في قاعدة البيانات » ويمعنى آخر فإن مجموعة من ال 
ئ Datum‏ تشكل ٥1ط212‏ ه2( يحتوي على هيكل قاعدة البيانات » المكونات الأساسية لهذه 


الفتة هي : 
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تتيح لك هذه الخصائص التلاث عمل خاصيهةه ترقيم تلقائي ڪما 


او ضحناها فى بداية دورسنا عن 56۲۷8٣١‏ )50 » وتستخدم لتحديد 


الخاصية وتحديد نقطة البداية ومقدار الزيادة مع كل مرة على 


الترتيب 


نوع البيانات 


تحديد ال ع1 a1a‏ اط الذي يتبع له هذا العمود 


الجدو ل 17. 4. بعض خصائص الفئة 1"1 001٤2ا0a.‏ 


:DataC0o|UN¬05S انشاء‎ 


لنفترض انشاء قاعدة بيانات تحتوي على الرقم الذي هو مفتاح رئيسي وايضا ترقيم تلقائيء 
آما الاسم والعمر فهما لا يحتويان على آي قيم مميزة › سيکون هذا هو ت ا e‏ 
الحدول: 


DataColuümn ‘EmpIDColuma: = Rew DaltaColumn(TID";, Lyoeor (inE)) 7; 
EmpI1IDColumn.Caption = "Employee ID"; 

EmpIDColumn. ReadOnly = true; 

EmpIDColumn.ALlowDBNull = false; 

EmpIDColumn.AutolIncrement = true; 


EmpI1IDColumn.AutolncrementSeed = 1; 

EmpI1IDColumn.AutolIncrementStep = 1; 

EmpI1IDColumn. Unique = true; 

DataColumn EmpNameColumn = new DataColumn ("Name", typeof (string)); 
EmpNameColumn.Caption = "Employee Name"; 

DataColumn EmpAgeColumn = new DataColumn ("Age", typeof (int)); 
EmpNameColumn.Caption = "Employee Age"; 
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VB.NET 


Dim EmpIDColumn As New DataColumn ("ID", GetType (Integer) ) 
EmpIDColumn.Caption = "Employee ID" 

EmpI1DColumn. [ReadOnly] = True 

EmpIDColumn.ALlowDBNull = False 
EmpIDColLumn.Autolncrement = True 


EmpI1IDColumn.AutolncrementSeed = 1 
EmpIDColumn.AutolncrementStep 1 

EmpIDColumn. Unique = True 

Dim EmpNameColumn As New DataColumn ("Name", GetType (String) ) 
EmpNameColumn.Caption = "Employee Name" 

Dim EmpAgeColumn As New DataColumn ("Age", GetType (Integer) ) 
EmpNameColumn.Caption = "Employee Age" 


ومن ثم نضيفها إلى ال 1201٥‏ 2اه( بالشكل التالي: 


CF ) ڪو د‎ 
EmployeeTable.Columns.AddRange (new DataColumn[] { EmpI1IDColumn, EmpNameColumn, 
EmpAgeColumn }); 


VB.NET ر‎ 


EmployeeTable.Columns.AddRange (New DataColumn () {EmpIDColumn, EmpNameCoLumn, 
EMDAGECOLUMO) 


DataRowW 2g لJماlعنلl‎ .5 .9 


تختص هذه الفئة بالتعامل مع الصفوف › المكونات الرئيسية لهذه الفئة هي: 


الجدول الذي يحتوي على هذا الصف 


الخاء التخييرات التي تمت على هذا الصف منن آخر مرة تم استدعاء 


CCE NINES Û 
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انهاء عملية التعديل و حفظ التعديلات 


حذف هذا الصف دiد‏ اږwتدslae‏ )( AcceptChang®esS‏ 


حالة الصف والتي يمكن قراءتها من الل 2١01۳"‏ المسمى 
DataRowsSstate‏ 


الجدو ل 17. 5. بعض خصائص الفئة 4۸07 0(21. 


والذي يحتوي - 21€ ]ا۸0۷5 Da]‏ - على القيم التالية: 


Browse All Components ا بت س اس‎ E - 
an 
۰ ssi i" Detached 
+a" Modified 
HF Unchanged 


Deleted : 
Member of System. Data DataRowState 5 


الصورة 17. 12. .DataRowState €NUM Jı‏ 
Data ROWS «lil‏ 
لا يمكن انشاء 0213۸0۷ مباشرة » مثل هذا السطر سوف ينشاً خطاً: 


ڪو د ) CH‏ 


DataRow r = new DataRovw(); 
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VB.NET 


Dim r As DataRow = new DataRow(); 


لكن ل يد من انشاء ۸07 ا0(a‏ من نسخة من الحدول د« هذا المثال لانشاء نسخة مj DaltaROW‏ 


ووضع قيم بعض الصفوف فيها حسب الجدول الذي قمنا بعمله في البداية. 


DataRow EmpRow = EmployeeTable.NewRow () ; 
EmpRow ["Name"] = "Ahmed Gamal"; 

EmpRow ["Age"] = 22; 
EmployeeTable.Rows.Add (EmpRow) ; 

EmpRow = EmployeeTable.NewRow () ; 
EmpRow [l1] = "Ahmed Essawy"; 

EMOROWLZ] =2, 
EmployeeTable.Rows. Add (EmpRow) ; 


VB.NET 


Dim EmpRow As DataRow = EmployeeTable.NewRow () 
EmpRow ("Name") = "Ahmed Gamal" 

EmpRow ("Age") = 22 
EmployeeTable.Rows. Add (EmpRow) 

EmpRow = EmployeeTable.NewRow () 

EmpRow (1) = "Ahmed Essawy" 

EMGOROW(A) = 23 

EmployeeTable.Rows. Add (EmpRow) 


لو لاحظت اننا لم نضع الحقل |0١‏ نظراأ لإنه ترقيم تلقائي » كما ان الحالة الأولى فيها الوصول 
للحقول بالاسم اما الثانية فبرقم ال ×علك٣|.‏ 
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- متال شامل: معرفة كل الجداول في قاعدة البيانات ع٥0335‏ ومعرفة 


الصفوف و الأعمدة: 


= E N > a 
foreach (DataTable dt in empDataSet.Tables) 
{ 
TeEREl. TEKE 4= TE. TabLENamê 4 Fei"; 
FOF (Ih CUFUOL  & U; CUOEUOL < OlCE.COLUMRASLCOURE; CUECoOLEE) 


{ 


LEC LELEKT TS (CUFUCOL FEF LI SIOSLCLEING) FEF CESCOLUMUSLCUETCOL s4 COLUMANEME FF 
hh 


} 
TeERIElLLLIORT = TOVE ET; 
TOE ‘(IME CUEROW = U: COUEROW < OE CROWSL. COUNL; CUEROWEE) 


{ 


TOF INT CUOFUOL UF. CUCL < OTC. COLUMNS COUN: OUECOLEE) 


{ 


TEXTE ln LORE = OTC .ROWSLCULROWI LEUECOLI.TOSEFEING (0) 


VB.NET 


Textl.Text = "" 
For Each dt As DataTable In empDataSet. Tables 
Texltl. lext 4= dt. TableNaméê + ";:" &4 Chr(10) -& TT" & CHF(L3) & 
FOF CUFCOL A8 INlLéoer = U T0 GC.COLUMNS{COUNL = 1 
TEKLlL.lIeKE 5 COUECOL FF LP.TOSEEILING() F QE. COLUMHS CEUECOL) 1COLUMANAmMEe F 
ENS ECONO, CS FE SINE) GC 
Next 
Tell. lIORKL = TROWST " 6 COEF(LO) &€ FF ECE CONFI) & MT 
FOF CUFEROW A8 Iiteger = Û0 TG CE:ROWS.COUNnE = 1 
FOF CUECOL AS Integer = U To OC.COLUMAS. COURNE = 1 
LERUElL. LIKE FS GC. ROWS (CULFROW) (CUECOL}, STIOSEELRG O. F 
NeXT 
NeXT 
Nex 
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9. 6. استخدام Data rab 1 eR e2 de‏ لقراعة البينات ون 
DataTable‏ 


Textl.Text = "", 
DataTableReader dtReader = dt.CreateDataReader () ; 
while (dtReader.Read() ) 
ا‎ 
LO (OMIT 1 = OF 1 ®. QERE IEE. FILEIOICOURNE 18) 
TEXEL. TERT =3 JOlIREeaIEFE.GELVALUES (LJ. TOSTEEING (OF 
ِ 


VB.NET 


TEXLL. TEU = 
Dim dtReader As DataTableReader = dt.CreateDataReader () 
while dtReader. Read () 
For 1 As Integer = 0 To dtReader.FieldCount = 1 
TEXLL.TEXL += -QLREIIEFE. GELVa lue (LJ .TOSTEING (0) 
Next 
End While 


CF 


EmpDataSet.WriteXxml ("Employee.xml"); 


VB.NET 


EmpDataSet. WELEEXML (TEMD LOVEE, XML") 


CF 


EmpDataSet. ReadXml ("Emp Loyee.xmL"); 
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VB.NET 


EmpDataSet. ReadXml ("Employee.xml"”) 
بهذا الشكل تقريبا:‎ E۳" ما٥۷ع۵.×٣"1 سیکون ناتج الملف‎ 


<?xml version="1.0" standalone="yes'" ?> 
<Employee_ XML> 
<Employee> 
<ID>1</1D> 
<Name>Ahmed Gamal</Name> 
<Age>22</Age> 
</Employee> 
<Employee> 
<ID>2</1D> 
<Name>Ahmed Essawy</Name> 
<Age>23</Age> 
</Employee> 
</Employee XML> 


Data6 ۲١4 استخدام ال‎ 


في مشروعنا الذي قمنا بانشاءه سابقا ووضعنا فيه جدول الموظفين »› ڪل ما عليڪ هو سحب اداة 


Data Gr 1V7‏ من ضمن الأدوات الموجودة بالشكل التالي: 


Bê Formi E a ES j 

DataGridView Task, taGrid View Tasks‏ "ا > 1 ى 
ت Lhoose Data Source linone)‏ 
Edît Columns.‏ 
Add Column...‏ 
Enable Adding‏ ¥[ 
Enable Editing‏ |[ | 

[O Enable Column Reordering 


| Dock in parent container 


الصورة 1/7. 13. اضافة اJږفأداö DataGridView‏ 
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كل ما علينا هو ربط قاعدة البيانات بالمصدر عن طريق ع€°٥٤1۲ا03)350‏ ۸0058 » قم باختيار 
اضافة New 03350 اu ۲٤٣٥‏ » وقم بتتبع المعالج » اضافة 0338358 ومن ثم نقوم باختيار قاعدة 


البيانات الخاصة بنا. 


*** فى العادة بدلا من ابحث عن ال Connecti0 S۲8‏ اقوم بعمل at350u ۲٤€‏ 0 واستعرض ال 


.ConnectionString‏ ثم اقوم بالغائهاڭ 


بعد انتهاء الشاشة الخاصة باختيار الداتا سورس › تظهر لك شاشة تخبرك باختيار الجدول أو 
جملة الاستعلام التي تود لها آن تظهر في الجدول › ستنجرب اختيار جدول مباشرة وهو جدول 
المو ظفين › وفي متال احق ستجرب اختيار جملة استعلام. 


سيكون الناتج شينا مثل هذا: 


الصورة 1/7. 14. اضافة الأداة 1071٥‏ 36ا3( و تعيين مصدر البيانات ۲٣€‏ 501 ها0a.‏ 


بالطيع يمكنك اتاحة الفرصة للتعديل والاضافة من الحدول. 
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الآن سنجرب تعديل بسيط جدا » سنطبق شرط للبحث بحيث ل يتم عرض البيانات سوى التي لها 
الاسم الآول = الآأسم الأول الموجود في مريع نص › من dataGrid Jı‏ اختر Add Query‏ ومن ثم 
اڪتب جملة استعلام ڪالتالي : 


Search Criteria Builder OG GoGo Goo 


Choose an existing query or enter a new query below, A ToolStrip will be added to the form 
to run the query. To edit an easting query or use stored procedures use the Configure 
command on the TableAdapter in the Datašet Designer. 


Select data source table: 
Emele aS Empl 

Select a parameterized query to load data: 
3 New query name: FINIBy2 

Existing query name: 


Query Text: 
SELECT id, [First Name], Age FROM dbo.Employee where [First Name]= @ Search| 


i 


sample SELECT ColumnNamel, LolumnNamez FROM TableName Builder | 
WHEFE ColumnNamel = WParameterName Query Builder. 


الصورة 17. 15. أضافة شروط على البيانات المعروضة. 


ستلاحظ ظهور شاشة فى الأعلى بالشكل التالى » جرب كتابة الاسم حتى النهاية وشاهد النتائج: 
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الباب السابع عشر قوlعد‏ lلlنlٽ ADO.net‏ 


Da Search 


الصورة /1. 16. نتائج العرض. 


DataAdapter Jl ڌlدختwl‎ .2 


ببساطة شديدة» قم بتعريف (213۸020٥۲‏ كما تعلمنا شانتا : 


gETiné connecCLELOnSEEINGg = CDE SOUECE=ABMED=PC\SOLEXPRESSFINILCILGL 
Catalog=Employee; Integrated Securlty=True;Pooling=False"; 

DataSet ds = new DataSet ("Employee"); 

SqlDataAdapter dAdapt = new SqlDataAdapter ("Select * From Employee_i1info", 
CONRNECELONSTEINO 

dAQdaDE .FLLL{AS;,. "EmGloyee INFO"); 


VB.NET 


Dim: connectionString AS SlTING = "Data SOULCCE=ARMED=BPC\SOLEXPRESS;InNIEILaL 
Catalog=Employee; Integrated Securlty=True;Pooling=False" 

Dim ds As New DataSet ("Employee") 

Dim dAdapt As New SqlDataAdapter ("Select * From Employee_info", 
CONNECELORNSEEING) 

dAdapt.F1ll (ds, "Employee_i1info™”) 
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LINQ 


الباب التامن عشر LINQ‏ 


سنعود مرة أخرى مع N]]ء»‏ هذه المرة سنهتم بتعاملها مع قواعد البيانات المختلفة . 


بعد ان تعرفنا على بعض النقاط في عالم ا٥١.۸00»‏ جاء الدور لنتعرف على تقنية 
Language اntegrated Query‏ او ما یعرف ضارا باسم ل »]|N0‏ وهي تقنية جديدة من 
مايكروسوفت تهدف كما اسلفنا في درس سابق إلى بناء استعلامات قوية يمكن التحكم فيها من 
خلال بيثة فيجوال ستوديو » اضف إلى ذلك توحيد جملة الاستعلام مهما تكن نوعية مصدر قواعد 
البيانات الذي نتعامل معه سواء كان قاعدة بيانات أو عأأ۴ )۷× أو ملف نصي او ملف اكسيل أو 


خلافه. 


لل 0|[ ثلاث انواع رئيسية سنحاول التعرف على أجزائها هي: 
LINQ to SQL -1‏ 
LINQ to XML -2‏ 
LINQ to Objects -3‏ 
آبسط آنواع الاستعلام هي الاستعلام مباشرة إلى متغير من نوع ۸۲۲۵۷ » لنفترض المتال الذي 


شر حناه في مقدمتنا إلى 0|[ قبل عدة دروس بالشكل التالي: 


CH 


from d in developers 


where d.Languadge == "C#" 
select d.Name; 


هذه هي نفسها جملة الاستعلام التي كنا نكتبها بالشكل التالي: 


SQL | 


SELECT name FROM developers WHERE language="C#" 


ولكن الآن لم نعد نحتاج لوجود قاعدة بيانات لتنفين جملة الاستعلام هذه عليها » بل صار بامكاننا 


تطبيقها على مصفوفة بالشكل التالي: 
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الباب التاون عشر 


LINQ 


public class Developer 

( 
pBUDLIC SLEING Name; 
public string Language; 


} 


Developer[] developers = new Developer | |] 


Language="C#" }, 
Language="Java" }, 


{ new Developer { Name = " Ahmed", 
new Developer { Name="Khaled", 


new Developer { Name="Ali1", Language="C++"} 
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VB.NET 


Public Class Developer 
PuUDIILGE Name A6 SLI 
Public Language As String 
ENG CLASS 


Dim developers As Developer () = new With { New Developer { .Name = " Ahmed", 
.Language="C#f" }, New Developer { .Name="Khaled", .Language="Java", New 
Developer { .Name="Ali", .Languag="Ct+t"} } 


ومن ثم نكتب جملة استعلام بسيطة بالشكل التالي : 


1lEnumerable<string> LINQresult = from d in developers 
where d.Language == "C#" 
select d.Name; 


VB.NET 


Dim LINQresult As [IEnumerable (Of String) = From d In developers _ 


Where (d.Language = "C#") 
Select d.Name 


foreach (string s in LINQresult) 


{ 


MessageBox. Show (s); 


1 


VB.NET 


FOF. Each, Ss AS SLrFING In LINGrFeSULE 
MessageBox. Show (s5) 
NeXT 
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الباب الثامن عسر LINQ‏ 


كما تلاحظ يمكنك استخدام اي معامل من المعاملات السابقةه او عدمه » فجملة كالتالى صحيحه 


ما دمت ل تحتاج الشرط: 


CF 


IEnumerable<string> LINQresult = from d in developers 
select d.Name; 


VB.NET 


Dim LINQresult As [IEnumerable (Of String) = From d In developers() _ 
Select d.Name 


كما يمكنك ايضا استخدام دالة أ6١.‏ عادية ضمن الشرط مثل دالة الطول بالشكل التالى: 


1IEnumerable<string> LINQresult = from d in developers 
where d.Name.Length > 3 
orderby d.Name 
select d.Name; 


Dim LINQresult As [IEnumerable (Of String) = From d In developers _ 
Where (d.Name.Length > 3) _ 
Order By (d.Name) _ 
Select d.Name 


ترتیبت جمل الاستعلام 

تعودنا في جمل الاستعلام على ترتيب ۳0٥۳" N۸٥٣٩‏ اlectا5e.‏ ولكننا في 
۵ |اانستخدم اءعا1ع5S‏ لتكون هي الآخيرة دائما > السبب بكل بساطة هو ما يعرف باسم 
ese‏ iاnteاحیث‏ اننا نود ان نعتمد على الفيجوال ستوديو ليظهر لنا الأعمدة التى يمكنها الظهور 
لنا » فيما لو ڪكتبنا ا٥ 5S1‏ قبل ۴'۲0۳ فلن يستطيع الفيجوال ستوديو مساعدتك فى تحديد 


الخيارات الموجودة لإنه لا يعرف اي جدول تريد آن تقرآ مته بعد. 


جملة الاستعلام الكاملة: 
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الباب الثامن عسشر LINQ‏ 


FFM LA 1B SOiUFCES 


{ 


From id in Solires 7 


UOILMN 10U IR SOUECE ON EXDFE EOUAIS éxGFE [into 1dl | 

Let 1d = expr | 

Where condition | 

Orderby ordering, ordering, ... [Ascending | Descending] 


} 
ضع هذه الصيغة العامة في بالك فقط » سنتعرف عليها خلال عملنا في هذه الدروس إن شاء الله 


LINQ لJاود‎ 


تحتوي N0۵‏ || على 51 دالة ووظيفة مختلفة » سنحاول الآن التعرف على معانى وشروحات 


هذه المحجموعة من الدوال والتي سنستخدم بعضا منها خلال دروسنا 


الدالة الو صف 


ی د کک ا ا کک اد ا کد 
هل كل الموظفين متزوجين آم ا : 


Dol TEMarricd EMC lOVEECES ALLIED EMEA ص ص‎ MS 


المتو سط لمجموعة من القيم › هذا المتال : 
double avg = ints.Average ();‏ 


حيث أن ES‏ هى مجموعة من الآرقام 
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الباب التامن عشر 


Cast 


COO 


CONE TS 


COUN 


DefualtltIfEmpLY 


MT CIE LCE 


ElementALtL 


ElementAtOrDef 
UalLE 


EMO 


EGULLET 


MCE IL 


LINQ 


لتحويل مجموعة من العناصر إلى نوع محدد »› هذاالمتال : 


UIT MEVLLING INCAS STEIN (O, 
. حبث أن 5 هى مجموعة من الأرقام‎ 
لدمج منصرين » فمثلا لو كان لدينا 6171لا له نتيجة و‎ 
: عاب له نتيجة أخرى ونود دمجهم يمكن استخدام الآمر التالى‎ 272 
vat EeSUlÎL > GllerFVlI. COoNlcal (GOuUuelVA), 
تستخدم للبحث داخل مصفوفة › مثلا للبحث عن موظف اسمه محمد‎ 
: نكتب السطر التالى‎ 
bool find=employees.Contains (new employee (“Mohammed”) ; 
. عادي‎ 01٥6٣۲۷ وهى مشابهه لعمل ذلك عن طريق‎ 
۰ يقوم بعد نتائج الإستعلام آو عدد عناصر المصفوفة أو أيا ما یکن‎ 
iii COUNML = eMPplOVEeES. COURT OF; 
: إذا كانت هناك قيمة فارغة فيتم وضع قيمة افتراضية لها‎ 
VIL ITeEUl. IMLS Vel UAILILEML 7L0), 
ٿو لم ينم تحدیدھها فسيتم و صح القيمة الافتراضية لنوع البيانات‎ 
BICC ى‎ ١۱111 متلا صر للآرقام و للنصوص و‎ 
: يقوم باعادة البيانات بدون آي تكرارات › متلا‎ 
Var Dlille 2 OME VISIT OF, 
: يقوم باعادة القيمة فى مكان معين › مثلا‎ 
Employee newemp = query.ElementAt (4) ; 
لو لاحظت فى المتال السابق أنك قد تكتب رقم 4 فى حين انت‎ 
نتيجة الإستعلام لم تعد أربع صفوف أصلا » لذا تخبرنا الجملة‎ 
التالية أنه فى حاله كون الرقم غير موجود يتم الاستعاضهةه عنه‎ 
: بالقيم الافتراضية للفئة آو لنوع البيانات‎ 
Employee newemp = query.ElementAtOrDefualt (4); 
: يقوم بانتاج مجموعة فارغة من العناصر » بالشكل التالى متلا‎ 
var newresult = System. Query. Sequence. Empty<employee> (); 
: المقارنة بين نتيجتى استعلام والتآأكد من أنهما متطابقتان‎ 
DOOlLl ISeUlGL . GuUcervVI.EGUaALILALL(GUEEYZ2) 
مقارنةه محموعتين من العناصر واستر جاع القيم الموجودة في‎ 
: المجموعة الأولى دون أن تكون في المجموعة الثانية‎ 
var result = queryl1l.Except (query2); 


الناتج سیکون بدون تکرارات . 
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الباب التامن عشر LINQ‏ 
ا٣۴1‏ يقوم باعادة أآول عنصر فى المجموعة : 
Employee firstone = employees.First ();‏ 
E N‏ محموعهة العناصر هذه فارغة . 
كما يمكن أيضا أن يعيد أول عنصر فى استعلام فرعى › فلإعادة أول 
موظف متزوج : 
Employee firstone = employees.First (emp => emp.ismarrled‏ 
e,‏ 
۳1st rDe aul‏ مثل السابق ما عدا آنه فى حالة كون المجموعة فارغة أو الاستعلام 
الفرعى لم يعد بنتيجة آن يعيد القيمة الافتراضية : 
Employee firstone = employees.FirstOrDefault (emp =>‏ 
emp.1ismarrilied == 1);‏ 
Aggergate J| Jie Fold‏ 
PY‏ 601 تجميع العناصر حسب التحديد » مثل 6۲0168¥ الطبيعية فى ال 
Statement‏ أاSq‏ . هذا المتال : 
var newGroup = employees. GroupBy (emp => emp.Country) ;‏ 
ويسمى ۸K٥۷‏ ويمكن الوصول له عبر هذه الخاصية . 
1 عملية ال J011‏ . 
NC EL TEL‏ تقاطع مجموعين » العناصر الموجودة فى كلا المجموعتين فقط : 
var inter = queryl. Intersect (query2) ;‏ 
Sql Statements yè inner join Jı ةيلne Jolin‏ . 
E E RS CD ESD ES LasL‏ 
Employee lastone=employees. Last ();‏ 
Employee lastone=employees.Last (emp =>‏ 
emp.Country=="Egypt”);‏ 
laut‏ 0rDeاastا‏ متل السابق ما عدا آنه فى حالة كون المجموعة فارغة آو الاستعلام 
الفرعى لم يعد بنتيجه أن يعيد القيمة الافتراضية : 
Employee firstone = employees.LastOrDefault (emp =>‏ 
emp.1ismarrlied == 1);‏ 
اlc0un l0‏ متتل ٣ات‏ ولکن الناتج یکون من النوع 101۸9 هذا المتال : 
long empCount = employees.LongCount () ;‏ 
Max‏ 


آآڪبر عنصر قيمة کک 1 لمحمو عه : 
IIIE MUI INN GMa);‏ 


و يمكن تحديد طريقة لمعرهة المقارنات بين الفتات كما تعلمنا فى 


دروس سابقه 
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اللاب الثامن عشر LINQ‏ 
SE O > NS MS‏ 
و يمكن تحديد طريقة لمعرهة المقارنات بين الفتات كما تعلمنا فى 
دروس سابقه 
٥‏ استخراج العناصر من نوع معين فقط » لاستخراج العناصر ال ا٣1‏ 
کی وک ف 
UA: HeuNESULL > liSL OCI DECINL CO,‏ 
0٣۷8¥‏ لترتيب النتائج حسب طريقة معينة (تصاعديا ) هذا الكود كمتال : 
var orderllst = employees. OrderBy (emp => emp.Age);‏ 
0B DeS-9‏ الترتيب ولكن بصورة تنازلية »› هذا المثال : 
var orderlist = employees. OrderyByDescending (emp => JIMS‏ 
emp. ID);‏ 
۴68٥‏ توليد مجموعة من الأرقام الصحيحة بين حدين معينين : 
var newlist = System.Query.Sequence.Range (l1, 5);‏ 
تكرار رقم معين عدة مرات › مثلا لتكرار رقم "1" خمس مرات : 
var list = System.Query.Sequence.Repeat (l1, 5);‏ 
ESS ES Reverse‏ 
var revList = list.Reverse();‏ 
See‏ جملة البحث العادية» يمكن أن يستعلم عن الكل: 
var newSelect = list.Select (emp => emp);‏ 
أو أجزاء معينة فقط 
var newSelect = employees.Select (emp => new { emp.Name,‏ 
emp.Age });‏ 
Se1ectMany‏ فى حالة استخدامنا ل 6۲١1‏ فإن الناتج لن يكون صفا واحدا فقط › 
لذلڪ نستخدم ۸۷ 6e1 eci 1a‏ بالشکل التالى : 
var newSelect = groupedlist.Select(l => 1);‏ 
ع٥5191‏ اعادة قيمة واحدة فقط بشرط آلا تحتوي المجموعة على غيره : 
vat reSsuUulL >= Guery.SI1InNnGLle O;‏ 
SingleOrDefaul‏ نفس السابق عدا آنه يعيد القيمة الافتراضية فى حالة عدم وجود آي 
18 عتاصر : 
ual ICSUIÎL > GUCIV.CINJICOEUDEI AULT JF,‏ 
S9‏ تجاوز عدد من العناصر واعادة الباقى › مثلا لتجاوز أول 10 عناصر 


واعادة البقية : 


var hevlesuUll 3 GuUerEylI.SKIG(LO);, 
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الباب الثامن عشر LINQ‏ 
مNh11مSk1P‏ مثل السابق ولكنه يتجاهل العناصر حتى تحقق شرط معين وليكن 
متلا تجاوز رقم ما حد ال 100 : 
val NewResull = GUeIVI.SKIPWhILlLE(KS > < < LOO);‏ 
UN‏ جمع قیم محموعهة ٤‏ 
Double sum = ints.Sum();‏ 
مم1 يقوم باسترجاع عناصر بعدد معين من البداية : 
Vat LOD < IMCS Ia);‏ 
1k16‏ استرجاع عناصر حتی حدوث شرط ما› مثلا الاسترجاع حتى ايجاد 
Var TOG ICS IoC IG SS CTO,‏ 
O O E N O N TT ES ThenBy‏ 
العمر ثم على المرتب مثلا : 
var orderemp=employees.OrderBy (emp => emp.Age ThenBy emp‏ 
CMO. SALAEV;‏ .= 
aS‏ نفس السابق ما عدا أن الترتيب هذه المرة سوف يكون تنازليا : 
var orderemp=employees. OrderBy (emp => emp .Age ng‏ 
ThenByDesecnding emp => emp.Salary) ;‏ 
۷٣04ا‏ تحويل إلى مصفوفة : 
Employee [|] emps = query. ToArray () ;‏ 
¥ onaا01cا‏ نفس السابق ولكن مع تخزينها فى مصفوفة ثنائية الأبعاد . 
ا کے ا ا 
1010059 تخزین الناتج فی >ڪÛlئj Lookup<K, V>‏ 
e¶uenceeەك0]‏ تحويل الناتج إلى 56416۸٤٥٤٥‏ متتابع حيث يحل مشكلة التعارضات فى 
الأسماء بين الدوال وأسماء الحقول . 
٣1١0‏ عملية الاتحاد الرياضية» حيث يحتوي الناتج على مجموعة تشمل كل 
عتناصر | لمحمو عتنین ۰ 
vat LteSUll = Gleryl. UNION (OUEEVZ)F‏ 
N٥‏ جملة البحث يشرط العادية . 


الجدول 18. 1. الكلمات المفتاحية لتقنية ال .)|N0‏ 
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الباب الثامن عسر LINQ‏ 


استفدت کٹیرا فی الجزء السابق من کتاب (إبدأ )]1NQ‏ یموکنك تنزیلہ من هذا الرابط 


www.vb4arab.com/ vb/ uploaded/ 2730/ 11202261862.pdf 


تدكير سريع : المتغيرات غير المعرهفة 


احيانا تقوم بعمل جملة استعلام يكون الناتج فيها فثة لم تقم بتعريفها من قبل » هذه هي واحدة 
من فوائد تقنيa Typed Local Variables‏ yاicitاmpا‏ الت تم ترخا ساق > هة الها هال 


CH 


var Subset = from 1 in numbers 


where 1 < 10 
select 1; 


LINQ aa Lambda Expressions ۃIختwږا‎ : تذڪير خر‎ * 


تذكر أن باستطاعات استخدام تعبيرات ¥eبlد| Yu Lambda Expressi01s‏ من كتابة استعلام 


۵|[ بالطريقة العادية. 


LINQ To DataSet 


ال ا € a5‏ اa(‏ كما اسلفتا تشكل صورة أو نسخة من قاعدة البيانات فى الذاكرة › لذا فهى 


بكل بساطة نقطة جيدة لنستخدم عليها استعلامات [N0‏ الخاصة بنا. 


فمثاه لنجرب ربط قاعدة بيانات باستخدام a125٥‏ ومن û۾م‏ ري¦طl‏ ب Datalabl‏ 
والحصول على يعض البيانات متها : 
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الباب الثاون عسشر LINQ‏ 


DataSet ds = LoadDataSetSomeway () ; 

DataTable employees = ds.Tables ["Employee"]; 

var query = 
from emp in employees.AsEnumerable () 
where emp.Field<long> ("Age") .Year >= 40 
select emp; 


Dim ds As DataSet = LoadDataSetSomeway () 
Ui. 6MpBLOYESS A8 DataTable = dS. Tables (TEMpILOVEE™) 


Dim query = From emp In employees.AsEnumerable () 
Where emp.Field(Of Long) ("Age").Year >= 40 _ 
Select emp 


LINQ To XML „4 


أصبحت ۷1× الآن أحد أكثر مخازن البيانات شيوعا » و NQ‏ |1 تتعامل مع ۷1× مثل 
تعاملها مع أي نوع آخر من قواعد البيانات » اضافة لبعض الخصائص الإضافية التي تختص ب اXN×‏ 


فقط والتي ستنتعرف عليها سوية . 


فمتلا لو افترضنا ملف ا۷× يحتوي على بعض المنتجات بالشكل التالي : 
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الباب الثاون عسشر LINQ‏ 


<?xml version='"1. 0"?> 
<Items> 
<Item Number="122''> 
<ItemName>Item1</ItemName> 
<Quantity>100</Quantity> 
<Price>23</Price> 
</Item> 
<Item Number='"123''> 
<ItemName>Item2</ItemName> 
<Quantity>10</Quantity> 
<Price>14. 5</Price> 
</Item> 
<Item Number="124''> 
<ItemName>Item3</ItemName> 
<Quantity>31</Quantity> 
<Price>1000</Price> 
</Item> 
<Item Number='"125''> 
<ItemName>Item4</ItemName> 
<Quantity>22</Quantity> 
<Price>97</Price> 
</Item> 
</Items> 


بداية سنقوم بعمل 1:020 لملف ال )۷× بالشكل التالي : 


XElement purchaseOrder = XElement.Load ("Items.xml", LoadOptions.SetBaseUri 
LoadOptions.SetLinelnfo); 


VB.NET 


Dim purchaseOrder As XElement = XElement.Load("IlItems.xml", 
LoadOptlons.SetBaseUri Or LoadOptions.SetLinelnfo) 


اللآن » لو افترضنا آننا نود استعراض محموعة الآأصناف الموجودة لدينا » سيكون الكود الذي نكتبه 


بالشكل التالي : 


CF 


var newSearch = from item in Items.<IlItem> 
select 1tem. GNumber; 
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الباب الثامن عسر LINQ‏ 


VB.NET 


Dim newSearch = From item In Items.<ltem> () 
Select i1item. GNumber 


وللعثور على المجموعة التي سعرها أكبر من 100 دولار مثلا ؟ 


var newSearch = from item In Items.<IlItem> 
WiSrFe 1teMmM.<PFICE>. ValLüê. > 100 
gSëlëect 1ltem. GNüumMbEE 


VB.NET 


Dim newSearch = From item In Items.<IlItem> () 
Where (item.<Price>.Value > 100) 
Select item. GNumber 


LINQ To SQL 


فتة من فتات ]|N0Q‏ موجهة ف لدعم ١۲۷۵8ع5‏ ا50 » في العادة هي الأكثر استخداما 


وسنحاول التعرف عليها سريعا في هذا الدرس. 
البحث والاستعلام 
تعرفنا عليه اا > هذا المتال مثلا لاعادة الاسم وتاریخ التخرج على شكل فته جديدة 


للأشخاص الذين يزيد عمرهم عن 30 سنة ويقطنون في مصر: 


Va Glery from c in Employee 
where c.Age > 30 && c.Country == "EgypL" 
select new { c.Name, c.GraduationDate ¢}; 


VB.NET 


VIM GUEFEY From c In Employee _ 
Where (c.Agqe > 30) AndAlso c.Country = "Egypt" _ 
Select New With {c.Name, c.GraduationDate} 


اا 


الباب الثامن عسشر LINQ‏ 


Stored Procedures «leدiawl‎ 


كل ما عليك هو فقط تعريف دالة تشابه ۴۲٥٤٥80۲٤‏ لھا نفس ال e‏ ں ط٣ A)‏ » وهي ما 
يقوم بها الفيجوال ستوديو افتراضيا › الآن كل ما عليك هو كتابة أمر بهذا الشكل ( استعلام 
بستقبل متخير واحد ( : 


CF 


Var C = db.ProceduresName ("Egypt"); 


VB.NET 


Dim c = db.ProceduresName ("Egypt") 


إذا كان هناك جملة استعلام ستستخدمها لعدة مرات فليس من المنطقي جعل نظام قواعد البيانات 
يتعرف من جديد على الاستعلام كل مرة › لذا توفر لنا نظم قواعد البيانات الحل لهذه النقطة › 
أنضا ۵|[ تقدم لتنا ذات النظرية عبر ما يسمى بlږpuم Compiled Query‏ . 

فكرة ال ۵16۲۷ 4ءاأم"0۳) ببساطة تعتمد على استخدام دالة 

eاQuery.compi Compiled‏ تعمل eاiمC0m‏ لجملة الاستعلام » الشكل التالي كمثال: 


Var C = CompliledQuery.Complle ((DataContext context, string CountryName, int 
چ‎ 
from c in Employee 
where c.Age > age && c.Country == CountryName 
select new { c.CustomerlD, c.CompanyName, c.City }); 


VB.NET 


Dim c = CompiledQuery.Complile (Function (context As DataContext, CountryName As 
String, age As Integer) From c In Employee _ 

Where c.Age > age AndAlso c.Country = CountryName _ 

Select New With {c.CustomerlD, c.CompanyName, c.City}) 


والآن يمكتنك تحربة استخدامها لأكثر من مرة بتغيير البارميتر فقط › والبحث في الاستعلام 


الذي تم عمل ع‌اام"0۳) له: 
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foreach (var GOUEFVIIEG,g TEGO, 22)) 


foreach (var query (dc, "USA", 28) ) 


foreach (var GUE (dC, TEU, 28) 


VB.NET 


FOF Each FEOoOW IH OUEEV(GC, TEOVDET, 22) 
NeXT 

FGE Each BOW IN Giüuervy (CC; USA", 28) 
NET 

FOF Each FOoW IN  OUCTY UOC, TOIT, 20) 
NEXT 


استخدام دوال في جملة الاستعلام 
لو فرضنا جملة الاستعلام التالية: 
ی SQL‏ 


SELECT SUM( emp.salary ) AS TotalSalary FROM Employee emp JOIN Department dem 
ON emp.DepartmentID = dep.ID GROUP BY dep.ID 


نستطيع كتابتها بشكل |١۵‏ بالشكل التالي: 


from emp in db.Employee 

join dep in db.Department 

on emp.DepartmentID equals dep. ID 

TY TOCALSALAEY 

select TotalSalary.Sum (emp => emp.Salary) ; 


VB.NET 


From emp In db.Employee () 

Join dep In db.Department _ 

On emp.DepartmentIlID Equals dep.ID _ 
INLCOUIGEILSILSET) 

Select TotalSalary.Sum ( emp => emp.Salary ) 
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الباب التاون عشر 


استخدام جمل الاستعلام داخل L|N0ا‏ 


LINQ 


قد تحد نقفسڪ مضطرا احيانا لاستخدام واحدة من مميزات جمل الاستعلام التقليدية مثل الآمر 


1 على كل هذه هي الصيغة العام لتنفيذ جملة ا50 داخل ال 1|١0‏ : 


-متال منقول - : 


var query = db.ExecuteQuery<Employeelnfo> (@" With EmployeeHlerarchy 
(EmployeelD, LastName, FirstName, ReportsTo, HilierachyLevel) 


AS 


( SELECT EmployeelD, LastName, ForstName, ReportsTo, 1 as HlierarchyLevel 
FROM Employees 


WEEKES RECOETSITGS IS NULL 
UNION ALL 


SELECT e.EmployeelD, e.LastName, e.FirstName, e.ReportsTo, 


eh.HierarchyLevel + 1 AS HierarchyLevel 


FROM Emplyees e 
INNER JOIN EmployeeHlerarchy eh 
ON e.ReportsTo = eh.EmplyeelD 


) 


SELECT ® 


FROM EmployeeHlerarchy 
ORDER BY HierarvhyLevel, LastName, FirstName"); 


VB.NET 


Dim query = db.ExecuteQuery (Of Employeelnfo) (" With EmployeeHlerarchy 
(EmployeelD, LastName, FirstName, ReportsTo, HierachyLevel) 
AS 
( SELECT EmployeelD, LastName, ForstName, ReportsTo, 1 as HlierarchyLevel 
FROM Employees 
NEHER FEDOELSIG 15. NUEBU 
UNION ALL 


SELECT e.EmployeelD, e.LastName, e.FirstName, e.ReportsTo, 


eh.HierarchyLevel + 1 AS HierarchyLevel 


FROM Emplyees e 
INNER JOIN EmployeeHlerarchy eh 
ON e.ReportsTo = eh.EmplyeelD 


) 


SELECT ® 


FROM EmployeeHlerarchy 
ORDER BY HierarvhyLevel, LastName, FirstName") 
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LINQ في‎ |ns‌ع‎ ۲e استخدام‎ 


var NewEmp = new Employee { FirstName = "Ahmed", Age = 25, Country="Egypt"}; 
db.Employee.Add( NewEmp ); 


VB.NET 


Dim NewEmp = New With {.FirstName = "Ahmed", .Age = 25, .Country = "Egypt"} 
db. Employee. Add (NewEmp) 


في المتال السابق قمنا باضافةه موظف جديد باسم أحمد ويعمر 25 سنة ومن مصر. 


Update استخدام‎ 


VAR ECITEMG = OB: EMGLIOTEE. SINGLE (E => CCOUNTEY =3 TIO DET, 
EdILEmMp.Age = 30; 


DIM EQILEMg = QDs EMPLOYEE. SLNGLEFUNGCEION(C). CECOUNEEY = FEOF) 
EditEmp.Age = 30 


في المثال السابق قمنا بالتعديل لعمر كل الاشخاص من مصر ليصبح 30 سنة. 


Delete ۃIluختul‎ 


var deleteEmp = db.Employee.Single (c => c.Age > 50); 
db. Employee. Remove (deleteEmp) ; 


VB.NET 


Dim deleteEmp = db.Employee.Single (Function (c) c.Age > 50) 
db.Employee. Remove (deleteEmp) 


في المثال السابق قمنا بحذف الموظفين الذين تزيد اعمارهم عن 50 سنة. 
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SubmitChanges .0 


بعد اى عملية للاضافة أو للحذف أو التعديل ل¥لا يد من استدعاء 


e 


الدالة () db. ub n1 v۸n ۸ 98S‏ لتفعيل التغييرات في قاعدة البيانات. 
التحديث بالتزامن فى قاعدة البيانات 


* ال لاا تتعامل بالوضع المنفصل وليس المتصل » لذا ستجد له الكائن 
Exeptlonا11c Change‏ والذي ينتج عن تعارض عمليات التعديل على قاعدة البيانات 


بين عدة مستخدمين › يمكن استعراض رسالة الخطاً بالشكل التالي: 


LEY 
{ 
DD. SUDMLLChHaAnNGES O j 
break; 
1 
catch (ChangeConflictExeption ex) 
{ 
MessageBox. Show (ex.Message); 
Db2.Refresh (somequery, RefreshMode.KeepChanges) ; 


VB.NET 


LEY 


Db2.SubmitChanges () 
ESI TEY 
Catch ex As ChangeConflictExeption 
MessageBox. Show (ex.Message) 
Db2.Refresh (somequery, RefreshMode.KeepChanges) 
ENC. TEY 


هنا يحاول الاستعلام التنفين › لو لم يستطعح يظهر رسالة الخطاً ويحاول مع أآمر ۸٤1٣۲٥۶۹۸‏ مرة 


خر ی. 


يمكن ايضا في الأمر كع9 ۸2۸٣ا‏ :"طناك تحديد سلوك البرنامج في حالة حدوث تعارض مثل 


الشكل التالي: 
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DDH: SUDMLLCRAnNnGES (CONT LIICTEMOUE.EFALLONELESLCONELICE 
DH. SUDMILTCCRAanGES (CONT LILCTMoOdE.CORNTINUSONCORTELIECE 


VB.NET 


DO. SUBMLEChangEes (CONELICTMoOQdEe FSALLONEFLESECONELICE) 
DH SUDMI1 LCCRAanges (CORT LLCEMOQAEL CORTINUSORNCORELIECE) 


وذلك من الفئة ٥0ء C0١11‏ والتي لا تحتوي سوى على هذين العنصرين. 


7 . انشاء فنات ا5۵ ٥١‏ ۹٣ا‏ ون خلال الفیجوال 


لسلوديو 


يمكنك الفيجوال ستوديو 2008 من انشاء كعءءهةا€ اهS‏ ۲0 NQ|اLا‏ يمكتنك التحكم بها 


لاحقا» من الشاشة الأولى: 
Add New Item - WindowsformsApplication10‏ | 


Lategqories: 
Visual CZ [tems 


2 # BB BB A 8 


٣ Debugger HTML Page [con File Installer Llass 
General Visualizer 
Web 


Windows Forms [ 2 14 
WPF 


| JSeript File LINQto SQL Local | MDI Parent 
Reporting lasses Database ا‎ Farr 
Workflow 


Resources Service-ba.,. Style Sheet 
File Database 


a E &A 


User LControl User Control WELE ServiEE Windows Windows 


LINQ to SQL classes mapped to relational objects. 


Mame: DataClassesl .dbml 


a) cree 


الصورة 18. 1. نتاتج العرض. 
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الباب الثامن عسشر LINQ‏ 


بعد اختياره » يمكنك انشاء علاقات وجداول جديدة او سحب قاعدة بيانات من «Server EX6ص|O0ڵث€F J|‏ 


لذا قم بفتح قاعدة البيانات الخاصة بنا وقم بالبدء بسحب الجداول» ستجد الشكل العام التالى: 


ll Properties 


E ta 
وا‎ Employee ID 
E Project _ Name 


Employee info 


= Properties 
FEF id 
و‎ First Name 
وت‎ Last_Narne 


e e 


الصورة 18. 2. جداول قاعدة البيانات. 


اللآن بكل بساطة ستلاحظ ان الفيجوال ستوديو قام بمساعدتك فى انشاء٣ Data Accمss |3۷٥‏ - لو 


كلت ت ذ كر ها تخد تعرمقات للدوال التانة متلا 


partlal void InsertEmployee_info (Employee_i1info instance) 


partial void UpdateEmployee_info (Employee_info instance); 
partial void DeleteEmployee_info (Employee_info instance); 
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VB.NET 


Partial Private Sub InsertEmployee_info (ByVal instance As Employee_info) 


End Sub 
Partial Private Sub UpdateEmployee_1info (ByVal instance As Employee_info) 


End Süb 
Partial Private Sub DeleteEmployee_1info (ByVal instance As Employee_info) 


ENG Sub 


قبل أن أنهي الفصل الخاص ب لN0|]ء‏ لو كنت تود معرفة المزيد عن N0۵‏ || فكتاب المهندس محمد 


سام زتها نكون متاسا لك كدانة حدة قى هدا التمخال > تحده على هدا اتر انط : 


رابط گے 
http://www.vbcoffee.net/SamerSelo/linqcourseebook. pdf‏ 
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الباب التاسع عشر WWF‏ 


منذ الاصدار 3.0 أ۸€. تم اضافة ما Windows Workflow Foundatio1ڊ yam‏ ويرف 
اختضارا N٣‏ وهي مجموعة من المهام والدوال ۸۴١‏ تسمح لك بادارة ومراقبة وتنفين ال 
OK‏ او سير العمليات إن صحت الترجمة . 
طبعا تعد هذه الخاصية واحدة من انفع الخصائص لمهندسى البرمجيات التى تمت اضافتها داخل ال 
k0‏ اهكلاأ۷ حيث اصبح بالامكان دمج ال ۴|0WS‏ )۷0۲ مع الكود أو التنفين الفعلى مباشرة. 
ال W۴‏ او ال W٥|ا؟ Wr)‏ هى مجموعة العمليات التى يتم تشكيل البرنامج بناء عليها » حيث يتكون 
البرنامج من مجموعة مرتبطة مع بعضها البعض من ال ۴۲0٤١۴55‏ كك۴ع"٠‏ اكلا والتي تحتوي بدورها 
على مجموعهةه من المهام ذات الصلةه بينها وبين بعضها البعض والتي تعمل سويهة. 
متال 
خدمة الصيانة لمنتج : يحتوي هذا البرنامج على طلب الايصال وادخال رقمه وعمل )٣ع‏ على 


قاعدة البيانات للتأكد من وجوده ثم تقديم خدمة الصيانة ثم طباعة ايصال صيانة. 


هذه العملية كلها تسمى ۴۲0٤٣٤۴5١‏ ككع"أكلا8 والعتاصر الداخلية تسمى ك)كةا والبرنامج يتكون من 


„Business Process 3e 


هناك العديد من البرامج التي تقدم خدمة |دIةö «WorkflOW JI‏ و لكن الميزة هنا انها مرتبطة ارتباطا 
فقا بالکود بحیث یمکن عمل ]۲۵٤٥۲٥‏ لكل واحدة على حدة وتتبع الآأخطاء إن و جدت » اضف إلى 


ذلك امكانيه التعديل لاحقاً في الجزئيات الكبرى بسهولة ويسر. 
1 . وکونات و اساسیات W۴‏ 


ال ۷۴ هى كود قايل للتنفين وليس فقط مجرد رسومات توضيحية مثل ۷|50 » لذا فالجمل 
الشرطية والتكرارات وخلافه الموجودة فى ال W۴‏ يتم تنفيذها فعليا. ولهذا السبب فال ۷۴ تحتوي 


على s€٥٤€5p3"ھn‏ و iesاemb‌ssه‏ و خلافه شأنها شآن اي مکونات لل٥.۱.‏ 


Workflow Activity 
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WWF 


يتم توصيف العمل الخاص بنا على Activities Ja‏ ويتيح لنا الفيجوال ستوديو وسائل للربط 


والانتقال بينهم وبين اليبعض مثل ٥155ع 1٤‏ أو Delay‏ لفترة أو حصول )€٤‏ 1۸۱70 معیين او يتم 


تنفيدذها على شكل خطوات معينة: 


WF ay İدبلl‎ .1 .1 


قم بانشاء مشروع جديد › اجعل نوع المشرو ع Wo rkf|OW‏ ةم |ختîر Empty Workflow‏ : 


(NET Fr Framework 35. Ba | 


Templates: 


Vial Sturn inelalled temglates 


ا ها ها هه که ف 


Sequential ShareFPcint ShareFsint State! 
Wardle. AON Se, ANT Stak.  MachiRE a. 


Empty 


| Warklle... 


2 


State 


Hlag MIN 


hy Termplate 


Seareh 
| Online Ta... 


| Project types: 


a Yul GF 
ond ars 
اغ‎ 
Smart ievicEe 
a 
Databate 
Reporting 
Ten 
WCF 
Naro 
j Database Frajert 
pþ ther Langage 
Distributed Systems 
» Other Prejêrt Types 
p Test Projects 


ûn ernpty project for creating a workflows. [NET Framework 3.5] 


Lotaticni CAUeerehhrmed Deceiver Visual Sindi RIS Prajecls 


¥ Create directory far solution 


ma 


الصورة 19. 1. انشاء مشروع جدید من نوع Workflow‏ . 


Empty Workflow 


| Married Worklaa Project 


| Solution Nare: Worldlowfrajeetl 


مشروع فارغ لا يحتوي على اي تنسيقات خاصة › اضافة للأنواع التالية والتي تعد اساسيات عالم 


تصميم البرمحيات: 
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الباب التاسع عشر WWE‏ 


Sequential Workflow .2 .1‏ 
النوع الأول من انواع ال 0138۲3۳5 التي توضح ال الا الخاص بنا » يتم توضيح العمل 
فيه على شكل عمليات متلاحقة متتالية توضح الشكل العام لكامل العمليات » وهو النوع الأشهر 


والأكر استخداما 


E1 
Bl Et jew Freed Kild Gebig Tels Tel inden Commanay Help 


EE | ا‎ 
LET pa 
LL 


ا 

4 

3 Handler ا‎ 

E Faranfers 1 
E [Returmyahia) 


Seq 


Ernablas emeriDûn ûf û g#OUP Bf Scribes i û 


(Rebarnvahse) 
لالالابابابابببب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:ب:بcبcبc۳ب۳بcبcبcبب۳ب۳بvبvب۳بeبvبeبeبeبeبeبeبeبeبeبeبeبeبeبeveبevevevevevevevevevevevececececececoT‎ Peake EE a aloo fer poremialer o tepa 
J Tas Lin q2 Call Sad LÎ Command Winder | J [renedisên Windom ag Emer Li TI] û êputl êl او ر ادا‎ 
Ready : 


Sequential Workfl0WsS Jı الصورة 19. 2. مخطط‎ 


State Machine Workflow .3 .1 


تهتم اڪتر ما تهتم بالآحداث عن طريق محموعةه من الطلبات والتخييرات: 


339 


tate Machine Workflow 


2 UrderLreatedE went 


rderllpdatedE Yent‏ ا 
UrderPracessedE wert‏ ا 


Order lpdatedE Yen‏ ل 
UrderLanceledE Yent‏ ا 
Orders hippedE Yeri‏ ا 


StateMachine WorkfI0W Jı الصورة 19. 3. مخطط‎ 
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٨۷۷۴ تطبیق‎ .2 


سنقوم الآن بعمل تطبيق بسيط »› سنقوم بالطلب من المستخدم ادخال كلمة المرور › في 
حالة كون كلمة المرور صحيحةه سوف نقوم بعرض رسالةه ترحيب وإلا اعادة المحاولة لادخال 


لذا قم ببدء« مشروع جıدıد‏ ¬ټApplicati0 SeQduential Workflow Console‏ وسمه ڪما 


essa amma mamma manana mamma mmm mma mmm 


Sequential Workflow 


Drop Activities to 
create a 
sequential 
Workflow 


1 
0 


sequentialWorkflowActivity 
Enables execution of a group of activitie 
sequence. 


Sequential Workfl0W Jı الصورة 19. 4. مخطط‎ 


الآن سنقوم بادراج ¥أأi۷ا)A‏ مه0 وسنضع الأمر التاليى في الحدث 


:codeActivity1l_ExecuteCode 
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private void codeActivilityl_ExecuteCode (object sender, EventArgs e) 
{ 
ConSole.ForegroundColor = ConsoleColor. YeLLow; 
CoONSOLG.UEILEOLI NG (TATE TCE IT EE NOI AO TT 
CONSOLE. FOLSGEOUNGCOLOE = CONSOLECOLOE.WOILTS; 


VB.NET 


Private Sub codeActivityl_ExecuteCode (ByVal sender As Object, ByVal e As 
EventArgs) 
Console.ForegroundColor = ConsoleColor. Yellow 


CONSOLE. WELLELING (TEFARES FIrEL WET Example tT CE ChNEF(LO) &€ TT" & ChE (LO) 
& ۳ ( 


CONSOLE, FOFETEOUNACOLOE = CONSOLECOLOEF.WAITE 
ENG SUS 


الخطوة التالية هي اضافة حلقة تكرارية لا يتم الخروج منها الا بادخال كلمة مرور 
صحيحة » لذا قم بسحب ص100 ع11 N1‏ » وسنقوم بتحديد ال C0١۵0 ١‏ الذي ستخرج منه اما 


بناء على: 

- دالة ۷١)0١‏ تعود بقيمة منطقية 8001٥31‏ بحيث يتم استدعائها مع كل 1000 وتعيد 
s٥‏ 1ه للتوقف أو ع٥‏ ۲1آ للاستمرار. 

- او بتاء على rule con di0۸‏ arativeاdec‏ اي عن طريق جملة خاصة. 

في مثالنا هذا سنعرف دالة ١۸831)ك۸‏ والتي ستعيد لنا ٥1ا٣ڄ‏ في حالة الجملة الخاطة لاعادة 
السؤال فيما تعيد لنا ©2158 في حالة الوصول لكلمة السر الصحيحة. 

لذا من الشاشة الجانبية اكتب اسم الدالة في الشرط ١0٥0|اأ0١ C0‏ بالشكل التالي - بعد تعريف 
خاصية بكلمة المرور اولا: - 


.FFOpDErTIES ا ل ا‎ 
aE HFT 


ل ا 1 


whileActirvityl System. Workflow.Actıvıties.Whıl = 


(Name) whileActivity1 


El Londıtion Lode Condition 
Condition ı AskAgain| 
Description 
Enabled True 
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While Activity Jı الصورة 19. 5. خصاتص‎ 


و كود الدالة: 


public stFIng Password { get; set; } 
private void AskAgain (object sender, ConditilionalEventArgs e) 
{ 
Console.Write ("Enter Password: "); 
Password = Console.ReadLine () ; 
Lf (Password == "Ahmed Gamal") 
€, RESULE false; 
else 
é6 ROSULE EEUU; 


VB.NET 


PUDLIT PIODErTLEY PaASSWOEd() A8 SLEING 
Get 
End Get 
Set (ByVal value As String) 
ENO Sel 
EHC. PEODEETEY 
Private Sub AskAgain (ByVal sender As Object, ByVal e As ConditionalEventArgs) 
Console.Write ("Enter Password: ") 
Password = Console.ReadLine () 
If Password = "Ahmed Gamal" Then 
e.Result = False 
Else 
e.Result = True 
El KE 
ENO. SUD 


اللآن خطو تنا الآأخبرة اضافة ۷آ ACV‏ فما تم ادخال ڪلمة صحبحة » سته ذف 
خير ة هي يىم مرور : سيتم دي 


طباعة كلمة €° his Password is W0‏ » لذا قم بسحب ۷۷ا٤۸‏ وضع هذا الکود فیها: 


private void codeActivlty2_ExecuteCode (object sender, EventArgs e) 
{ 
CONSOLE. WEILTELINE (TThILS Pasur 18 WEONGO:S TT), 


} 


VB.NET 


Private Sub codeActivity2_ExecuteCode (ByVal sender As Object, ByVal e As 
EventArgs) 

CONSOLE. WEILTELINE (TTINILS PSSSWOEC 15 WEONO FT) 
End Sub 
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هکذا سیکون الشکل الکامل لل W۴‏ ]اع ٥)u‏ بالشکل التالی: 


sequential Workflow ۰ 


/ Gf codeActivityî 


Sequential Workf|0W eبlتتli الصورة 19. 6. مخطط‎ 


وشاشه النتاتج: 


Eî CAUseriAhmed\Documents\Visual Studio 2008 Projects WorkflowConsoleApplication \Workflowc,.. mil [|e sre 


Enter Password: sami 
This Passvord is VYrFong . 
Enter Password: ahmed 
This Passvord is YrFong -. 
Enter PassvorFd: qamal 
Password is lYrFong . 
Password: 
PFasszword is lYrFaong . 
Password: 


Password is lYrFong . 
Enter Password: 
This Passvord is YrFong -. 
Enter Password: 
This Passuvord is VYrFong . 
Enter Password: Ahned Gamal_ 
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الصورة 19. 7. نتائج التنفين 


E a e EES GEC‏ کول مد چا کا هو الحال في نظام 
دخول يسيط » نفس الهيكل مع اختلاف محتوبات الكود لكل متهما » لكن الصورة العامة واضحهة 
وهو ما يفيد كثيرا فى تسهيل قراءة وفهم محتويات الكود اضافة لعمليات ال ۲۵٥€‏ وال عuطع0.‏ 


WF Code Library .3 


في هذه النوعية اصبح بامكاننا انشاء ۷۴ يمكنه العمل مع Windows ga gi ASP.net‏ 
۴۶5 وليس فقط C0۸50‏ » حيث سيتم تحويلها إلى ملف أأك. ومن ثم استخدامها في اي تطبيق 


~~ 


آخر. 
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من خلال استعراضنا للتقنيات الجديدة في عالم أ€١.‏ فى مطلع الكتاب ذكرنا بإنها تقنية 
جديدة موجهة للتطبيقات التى تعمل على الشيكات أو لتلك التطبيقات الموزعة وخلافه » وذكرنا 


ضمنا أنها استبدال للتقنيات الجديدة بدeا «lily WinsOCk jn‏ 4ب Sockets‏ . 


وقبل البدء بعالم N٣۴‏ لنلق نظرة سريعة على عالم 56۲۷|٣6‏ ٥ع/N‏ منذ البداية. 


Web Service .1 


ا خدمات ويب أو ما يطلق عليها اسم €١٥أ5€۲۷‏ ۷€ هي عبارة عن برامج أ€١.‏ طبيعية 
أو على سبيل التحديد فهي ۸5۶.١6‏ ولكنها ليس لها واجهة (المقصود هنا بالواجهة هي واجهة 
الاستخدام وليست )|١6۲۴۹3٥٥‏ ويستطيع المستخدمون الوصول لها بواسطة |١8۲۴۵٩۵٤‏ معين » حيث 
يتلق مر آو طلب ء٥۷٩٥۸‏ ثم یستجیب لها عن طریق ٥۲0۲0٤٥0٥1‏ م٤‏ اعتمادا على معاییر ×M|‏ 
والتي تؤمن بالتالي أن يفهمها أو تفهمها ملايين البرامج والأجهزة ومواقع الإنترنت ببساطة تامة. 
والآن سننسى التعريف السابق والمقدمة وستحاول ان نفهم الموضوع بطريقة آخرى › فخدمة ويب 
عبارة عن برنامج بدون واجههة يفقوم المستخدم بمناداته وطلب بعض المعلومات منه ومن تم ترد 
عليه الخدمة بهذه المعلومات » وواحد من آشهر التطبيقات لذلك هي خدمات ويب الخاصة 
بالطقس »› حيث تطلب منها الطقس في مدينة معين لتعود لك بدرجة الحرارة مثلاً > وكل ذلك 
أن يكون لها واجهة استخدام اضافة إلى آنها تكون موجودة على الإنترنت. 
وكما أسلفنا فخدمات ويب تعتمد على ۷1× كمعيار لتمثيل البيانات »› ما يعني آن جميع البرامج 
في جميع الأماكن قادرة على التعامل معها وفهمها بغض النظر عن نظام التشغيل أو لغة البرمجة. 
فا ان الخدفاف ترا كا الفا سان قان اتسركر انذى سمت كفا كلى الارن لادان 
يدعم هذا النوع من البرمجة ›وإذا أردت أن تجرب خدمتك الخاصة على جهازك الشخصي فتآڪد 


من آنڪ قم بتحمیل برنامج ۱۶| من ابتداء من مايكروسوفت 2000 ۷Ws‏ ۸00| وآكثر. 
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1. 1. عول WebService‏ خاص بك ون خلال .٣.٥٤‏ 
في هذا الدرس السريع سوف نقوم بعمل €٥٤|۲۷ع5 €٥‏ نقوم باعطائها درجة الحرارة من 


وحدة (درجة فهرنهايت) لتقوم بتحويلها إلى وحدة (درجة منوية) › والمعادلة العامة هي: 
result = (input-32) * 5/9‏ 


وللبدء قم باختيار مشروع جديد ASP.net Web Service رتخاıو New Project‏ › واختر اسما لھا 


في ا5٥ |٥٤۵۸‏ لکي یتم تجربتھا على حاسبڪك الشخصي › مثلا: 
http://localhost/ConvertWebService‏ 


سيقو م فیجوال ستوديو بانشاء بعض الملفات منها ملف ۷٤ °0١۴£‏ تماما ڪما في ۸5۶.۸٤‏ » ڪما 
ستجد ×ه5ه.|6|002 أما الصفحات الرئيسية فسوف تنشاً باسم ×5۳ه1.4ع٥٤|5€۲۷.‏ 

لاحقاً سيكون الاسم 56۲۷١81‏ هي الطريقة التي يتم بها الوصول إلى ال 8056۲۷٤۵‏ الخاص بڪ 
> لذا لا تنسى تغييرها إلى اسم مناسب لك وليكن a ConvertWS‏ .. 

والآن تماما كما تقوم ببرمجة آي تطيبق باستخدام أ6". قم بتطبيق المعادلة السابقة » لكن لا تنس 


أن W€ 56۲۷٥۵‏ ¥ بد الا تحتوي على آدوات مرئية ×0 r eXB‏ مغلا . 


ولذا قم باضافة كود بالشكل التالى ۷8.16€ مثلا: 


[WebMethod (Descr1ipt1i01=" Jlûn ("الحرارة درجات تحويل لنلعمنية‎ [ 
public decimal Convert (decimal degree) 
1 

decimal Fesult; 

result = (degree - 32) * 5 / 9; 

return result; 


WEDMECNOO (DET COEILDEION IP ILLS lC E Ol yd 
Function Convert (ByVal degree As Decimal) As Decimal 

Dim result As Double 

rFéSULt = (degree = 32) * 5 / 9 

Return result 
EHC FUNCEIoN 
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والآن لنجرب تطيبق هذه الخدمة» ولا تنس أن يكون خادم ال ؟|| وود على جهازك. 
قم بفتح المتصفح ولیکن 0۲۴۲|م×٤‏ أع"٣۲عا‏ ”| وقم بكتابة السطر التالي: 
http://localhost/ConvertWebService/ConvertSW.asx‏ 


تستطيع اللآن تجربة الخدمة الخاصة يك والتآأكد من كونها تعمل يصورة صحيحة. 


مھ »م »م 


وهى الواقع فلن يتم استخدام الخدمة بهذا الشكل » وإنما هذه الطريقة تستخدم فقط لتجربة 
الخدمةه على جهاز المستخدم والتآأكد من أنها تعمل بكضاءة. 

يتم استخدام ٤ 100٥0‏ ٥٠آ‏ في وضع عدد من الخصائص لخدمة الويب › نذكر منها على سبيل 
العحالة: 

Bu] ferResponse -1‏ : وهنەہ الخاصیية تحدد فیما إذا کان سیتم عمل ع٣١‏ ٣٥؟fںاط‏ قبل 


الارسال للمستخدم » ولها قيمة ۲۲۷٥‏ أو عا۴a‏ 


2- i0nاCacheDura‏ : وهي تحدد الوقت الذي يتم من خلاله عمل 5ة وتأخن قيمة رقمية 


بالتانية وتحدد الوقت المستغخرق قبل اعادة ار سال البيانات من جدید. 
E[nab lees ion =3‏ : تحدد فیما إذا تم تفعيل خاصية 65855101 أم لا. 


1. 2. استخدام W5٥۷ ٤٥‏ خاص بك فی موشروعاتك 
الذها د 


لنفترض اننا نريد الاستفادة من خدمة ويب في برنامج مثلاً للعمليات الحسابية » ونريد أن 
نستخدم €٥ 5€۲۷٥١€‏ الذي قمنا به في الدرس السابق والذي يقوم بالتحويل من فهرنهايت إلى 
درجة مئوية والذي ڪان ل4 |1ډڼpw ConvertSW‏ 

قم الآن بانشاء تطبيق ويندوز عادي »ومن قائمة ئProjeC‏ اخaر Add Web Refernce‏ 

سيظهر لك مربع حواري قم باختيار ×"5۳ه. ۸۷8۲5۷ K0‏ الذي قمنا ببرمجته في الدرس السابق › 


و كخدمة اضافية من 5۷010٥0‏ أهءلاأ/۷ا فسيتم عرض الخصائص والدوال التى تحتويها هذه الخدمة. 


والآن ننتقل سرتعا إلى الكود : 
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ڪو د CF‏ 


LOocaLlLHost.ConvertSswW conv = néw LocalHost.ConvertSWw () ; 


VB.NET ا‎ 
Dim conv As New LocalHost.ConvertsSW () 


والآن قم مغلا ڊو ضع Labell g Textboxl‏ حيث آذك تقوم بادخال درجة الحرارة في الأول 


وتنتظر لكلي تعرض لك في الثاني › الكود الكامل لهذه العملية يحتوي على الأمر السابق الخاص 


بتعريف الأوبجكت 0-01١7‏ » اضافة للسطر التالي: 


CF 


Labell1.Text = Convert.toString (conv.Convert (textBoxl.text)); 


VB.NET 


Labell1.Text = Convert.toString (conv.Convert (textBoxl.text) )‏ 
التنبيه الآأخير قبل انهاء هذه الدرس هو انك إذا قمت بعمل تعديل في الخدمة » قم في البرنامج 
الذي يستخدمها يعمل تحديث Update‏ لها عن طريق الضغط عليها بزر الماوس الآيمن ومن ثم 


Update Web Reference .رlıتخl‎ 


1. 3. استخدام خدمات الانترنت الجاهزة 

سوف نقوم الآن بعمل مشروع يستخدم أحد خدمات ال 6D 56۲۷1٤٥8‏ الموجودة على 
الإنترنت » وبعد البحث عثرت على الموقع التالي الذي يقدم بعض الخدمات: 
رابط گی 


http://www.webservicex.net/WCF/ 


يحتوي هذا الموقع على حوالى 70 خدمة مجانية » قمت باختيار واحدة منها وهي 


رابط گے 


http://www.webservicex.net/ValidateEmail.asmx 
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وتخبرنا هذه الخدمة فيما إذا كان هناك ايميل بهذا الشكل آم لا وتبحث عن هذا الايميل فى 
الشركات الى تقدم خدمات اليريد الالكروني وتك عن طربق نة اهمها 


.False او‎ True ةnıةب وتعود‎ 1sVal1dEmaıll 


والآن كما اعتدنا » نقوم باضافة ۵€٣١۲ع۸€۴‏ €6 جديد للمشروع بالمسار الذي قمنا باضافته 
سابقا > ومن تم ستقوم برسم على الفورم بحيث يمكن للمستخدم التعامل مع هذه الخدمة بسهوله» 
ولذلك سوف نقوم برسم مربع نص يتم فيه ادخال البريد الإلكتروني › ومن ثم زر آمر بحيث يتم 
اختبار قيمة الشرط ومن ثم عرض رسائة × 85529850 فيها حالة الاأيميل. 


الكود الذي سيتم وضعه في زر الأآمر هو: 


net.webservicex.www.ValidateEmalill x = new 
WindowsApplicatlionl.net.webservicex.www.ValidateEmail (); 
DGOL E = X.ISVaALIdEMALL(CEKLBOXxXL. TEXE) 
TE (FE) 

169940 6Ê6*X: Sow ر(" فيع اهي"‎ 
else 

ر(" عاط ا يهىل" ) €ê89% .5OW‏ 1855540 


Dim x As net.webservicex.www.ValidateEmall = New 
WindowsApplicationl.net.webservicex.www.ValidateEmail l () 
Dim r As Boolean = x.l1lsVal1dEmaill (textBoxl. Text) 
II E Ihén 

MESSAGE EOX. SOW asl a 
Else 

MESSa4GEBOxX. SNOW (asl CBS ") 
EN LE 


مع استمراري فى البحث فى هذا الموقع وجدت خدمة أخرى جديرة بالملاحظة وشائعة الاستخدام 
و هى الخاصة بالتعرف على الطقس والمناخ و خلافه» تحد الخدمة هناء 
رايط گے 

http://www.webservicex.net/globalweather.asmx 
المتال الأول لاستخدام هذه الخدمة هي معرفة المدن الموجودة في دوله معينه باستخدام‎ 


«GetCi1itiesByCountry‏ مثلا هذا الكود: 
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net.webservicex.wwwl.GlobalWeather m = new 
WIindowsApplicatlionl.net.webservicex.wwwl.GlobalWeather () ; 
MessageBox. Show (m.GetCitlesByCountry ("EgypPL")); 


MessageBox. Show ("Welcome”™) 

Dim m As Net.webservicex.wwwl.GlobalWeather = New 
WindowsApplicationl.net.webservicex.wwwl.GlobalWeather () 
MessageBox. Show (m.GetCitiesByCountry ("EgypLE") ) 


يعرض لنا أسماء المدن الكبرى في مصر» جرب اآن عمل B0×‏ ]ا×1e]‏ وجرب الدول التي ترد 


معرفة المدن الكبرى لها... 


الدالة الأخرى هى معرفة حالة الطقس باستخدام 1١١‏ 2ء NااءG‏ » بالشكل التالي مثلاً: 


net.webservicex.wwwl.GlobalWeather m = new 
WindowsApplicationl.net.webservicex.wwwl.GlLlobalWeather (); 
MessageBox. Show (m. GetWeather ("Asyut", "EGgypL")); 


VB.NET 


Dim m As net.webservicex.wwwl.GlobalWeather = New 
WindowsApplicatlionl.net.webservicex.wwwl.GlobalWeather () 
MessageBox. Show (m. GetWeather ("Asyut", "Egypt")) 


والآن بقي أن أشير إلى أن اشهر الخدمات الموجودة على النت هي تلك المتعلقة بالتحويلات 


المالية » حيث تحدث قيم هذه الخدمات فو رتنا تحیت بمکنڪك استخدامها فى برنامجكڪ لتحويل 


العملات بدلا من الاعتماد على المعادلات الحالية والتي تتغير باستمرار. 


هناك أيضا خدمات أكثر تعقيدا مثل الاتصال بالبنوك والدفع عن طريق البرنامج باستخدام خدمة 


يقدمها البتنك و خلافه . وهى قصة طويلة لكنها تسير فى اتجاه مشابه. 


أيضا هناك خدمة S؟R5S‏ وهي تسير في اتجاه مشابه » خدمة آخرى منتشرة وهي خدمة التعرف على 


حالة الطقس »› المناخ » و خصائص الدول والعلم والعملة والسكان وخلافه »› نوع آخر وهو التعرف 
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على معلومات |5۴١‏ من الشركة حيث قد يفيدك في بعض البرامج » أيضا ستجد خدمات ویب لکل 


WCF gJإ‎ aودقمو‎ 2 


واحدة من التقنيات الحجديدة التى واكبت ظهور 3.0 آN۴.‏ كانت تقنية Windows‏ 


۸۲۱۶ وهي مجموعة من الدوال‎ . WN) والتي یرمز لها اختضارا‎ Communication Foundation 


التي تختص بعالم الاتصال وال ٤٤۲۷ع we‏ وال remote acess‏ و خلافە. 


النقطة التي نتحدث عنها وستكون شغلنا الشاغل هنا هو كيفية التخاطب بين برنامجين على 
جهازين × و ¥ حتى في حالة =× بحيث تسمح لنا هذه العملية بعمل التطبيقات على الشبكات 
والوصول للأجهزة عن بعد وبرامج المحادثة ونقل الملفات ... الخ من التطبيقات التي تميز عصر 
الإنترنت الحالي. 


هناك الكتير من التقنيات التي ظهر ت لدعمڪ ڪمبر مج في تطوير برامج من هذه النوعية » حيث 
وفرت لك مجموعة من الحلول لتسهيل التعامل مع ال ١ا۸۲‏ الخاصة بعمليات الشبكات وخلافه» 
مثل MSMQ . 0C0“‏ .» ومع ظهور تقنية أ€6. تم تقديم مجال الأسماء 
Runt 1me. Remot1ng‏ .enاys‏ الخاصة يمثل هذه العمليات › هناك نضا تãقiنiıة Web XML‏ 
65 تمكنك هذه التقنيات من تسهيل عمليات عمل نظم موزعة بصورة كبيرة > وإن 
كنت لا ترغب في العمل في هذا المستوى العام فيمكنك التخصيص زيادة والعثور على خيارات 
اكبر واوسع مقابل زيادة بسيطة في نسبة التعقيد عن طريق استخداlم Named Pipes, Sockets,‏ 
۶۲° 4ه وهي الاشهر فعليا بين مستخدمين ال أ€١.‏ على الأقل في وطننا العربي تظرا لعدم شهرة 
التقنيات السابقة - برغم انها توفر الكثير من الوقت فعليا » يمكنك البدء من الدرس السابق 
ڪمتال. 

كانت هذه الحياة لك كمبرمج أ€١.‏ قبل عالم N٣٣‏ » في الدرس القادم سنبدأ بالتعرف على 


طبيعة هده التقنية. 
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2. 1. البدایۃ و2 WCF Jl‏ 
بعد تشغیلڪ لل 2008 0٥1ل‏ ں5 أھ٣۷isu»‏ قم باختيار نوع اalمشرو‏ غ WCF Service pû WCF‏ 
1|۴۷ بالشکل التالي مثلا: 


Project types: Templsbez NET Framework 353 < IS 


Visual LF Vrual Studrg Installed template? 


Winders 

2 3 4 3 & 
Smart Device الدع اوغ‎ ate a WCF Service 
Ofhice Workfla... Machi... Servite Lia. Library 


Database 
Reporting My Templates 


: 2 


Workflow search 
Database Projects Online Te. 
ther Larguages 
Distributed Systems 
Uther Project Types 
Test PFrajerts 


A prajecî for creating a WWF service class brary (dll) (NET Framerark 3.3] 


Name: WecfServicelLibrary1 
Lacatione lser Ahmedi Documents Visual Stirdio AFSL PrajeEcis 


Solution hlarrve: WefServicelLibrary1 [| Create directory for solution 


[Caneel 


الصورة 20. 1. اضافة مشرو ع جدید WCF‏ . 


هناك خيارات أخرى تقدمها لك N)۴‏ بحيث يمكنك تطبيقها مع خدمة ۸5S‏ أو تقنية WW”‏ 
افتراضيا » هناك ایضا ضمن اختیارات انشاء ٥٤ا؟ ۷٥٥‏ جدید تجد N٣۴ Sما۷أ c٤‏ و لکن لیس هذا هو 


موضوعنا الآن. 


الآن تجد نفضسك قد قمت افتراضيا بانشاء ثلاث ملفات ¥ا 55۳"6 هى: 
WCF Service -‏ 


WCF Service host - 
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WCF client -‏ 
وللربط ل يد من توافر المعلومات الثلاث التالية: 


- 55ا :dd‏ هو يحدد العنوان الذي يتم الاتصال به. 


- BiNdi8:طرق‏ الربط. 


:C0nk rC -‏ صف المهام التي یتم تنفینذها من خلال .NC۴‏ 


2. 2. سکل و محتویات ال Add r٥55‏ 


النقطة الأولى من معلومات #٣۴‏ “۷€ هى العنوان الذي ستتصل به › له الصيغة العامة التالية: 


رابط گي 

scheme://<MachineName>([:Port]/Path 
حيث أن 5۸08۳۵8 تحدد البروتوكول الذي سوف تعمل من خلاله ما بين البروتوكولات الموجودة‎ 
تحدد المکان الذي ستتصل به‎ MachineName 
› أ0 هو المنفن الذي سيتم الاتصال من خلاله‎ 
في الجهاز الذي تود الاتصال به.‎ 56۲۷٤٥85 وهو مسار ال‎ ath Ty 
هذا على سبيل المثال:‎ 
رابط قي‎ 

net.tcp://localhost:8080/MyWCFService 
تجربهة بسيطه:‎ 
:1586 ۲7۷1٤٥0٤1. ٤S جديدة » بعد انشاءها قم باضافة تعريف للدالة في‎ ٣۴ قم بانشاء 0۲3۷ا‎ 


CF 


[OSE LLORNCORNEEACE 1| 
INL AQO(IRE S&S, LN VG 


<OperationContract () > 
Private Function Add (ByVal x As Integer, ByVal ¥ As Integer) As Integer 
End FünCEIon 


ومن ثم فى S٤.1ع٥|56۲۷‏ قم بكتابة الدالة التالية: 
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BULTIC INE ACOCCILRNE &, ANE VY) 
{ 


LLU E. VF 


} 


VB.NET 


Public Function Add (ByVal x As Integer, ByVal y As Integer) As Integer 
MELCULD KS VY 
ENG FUnNCLEILon 


وفقط » قم بعمل ۸لا۸ وقم بتجربتھا من خلال e۸‌iا€‏ ئا W۴‏ بالشکل التالي مغلا > بعد كتابة 


رقمين قم بالضغط على |١۷0)٥€‏ لتجربة الحل. 
أليس هذا أآسهل بكتثير من الدرس !لابق حJa ş Web Services‏ 


ليس هذا فقط» بل سأنقل لك هذه المقارنة من موقع مايكروسوفت بين هاتين التقنيتين: 


35 —~ - 
: 
hı 
i 
° ټون‎ 
ا‎ 
E 
1 wm WSE 2.0 
3F 2EW) WWE 
۳ 
1 wm VWLF (PAEessageê Credentials} 

OS SEC 

¬ لال 

15 

10] 

EO 7 


Message with 1 Object Message with 1 Objects iessage with 100 Objects 


الصورة 20. 2. سرعة الأداء باستخدام تقنية ال ./€٣۴‏ 
إذا كنت تود استعراض كافة أو جه المقارنة يمكنك الإطلاع عليها عبر الرابط التالي : 


رابط گے 
http://msdn.microsoft.com/en-us/library/bb310550.aspx‏ 
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نستعرض هنا سوية بعض النقاط الإضافية التى لم نستعرضها خلال سير الدروس قبل الإنتقال إلى 


عالم تطوير المواقع . 


Debugging - ڊڄيقaنتll‎ .1 


أثناء عمل على البرنامج تظهر تك آخات عدة أخطاء دشیب رسڪ » حيث ل تکون قادرا 
على معرفة المكان الذي ظهر منه الخطاً تحدددا ١‏ آو آتك تحد فحاة فبمة متخير مخافة عن 


القيمة التي كنت تتوقعها › من هنا ظهرت فائدة ال ع0601 لتتبع أخطائك بصورة أفضل . 
BreakPoints‏ 


نقاط يتم وضعها على أماكن معينة من الكود بحيث يتوقف التنفيذ فور الوصول إليها 
ويعيدك إلى ال S۷40‏ أهلاكءألا. حيث يمكنك مراقبة قيم المتخيرات واستعراضها والتأكد من 
خلوها من المشاكل » يمكنك اعادة استئناف التنفين سطر يسطر بالضخط على ۴11 أو مواصلة 


التنفين للنهاية بالضخط على ۴5 . 


يمكنك اضافة B۲٥۵۸۲ 0٣1‏ بالضخط علی ۴9 فى السطر المحدد » آو الضغط على جانب 


الكود بالشكل التالي متلا : 
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| 3 WindowtF ormtapplicatienll Fermî e û PForma Lendlobject sender, Eventûrge €] z 
index += textBoxl. Text. Lengths: 
1 


ر*:(“نم الاتتهاة قن نتلوبن اللات" ] 556¥ .×655 H339‏ 
1 


privaltéê vo13 Eiserl lick lBbBieet marmder, Evan tAarga J) 
i 

##labeli.Text = DateTime. Hou. Hour +4 "1:" + DateTime. How, Minare +4 ":" +4 DareTime, Hou, Second? 
j 


pEirare int ResadDaraSomeWhere [j 


FEEUÛFR D2; 


privrağê valid Formê L5êdlcbjêet aêRder, EventArgs €] 


AE aU] , mi 
or (int û ®“ Û, û £ 10, 1++[ 
1 


# = ReadDaTraSomeNhere [j 3 
2 um, *™ E; 
|| j} Delete Breakpoint 

I Cuabie Breakpeınt Fo „Show [aum. ToSrerirg (Î Û 5 
Lota... 
Londen, 


HE Counk.. 


FiRET;. ٣ - 
hen Ht 


الصورة 21. 1. اضافة نقطة توقJHف BreakPOİNt‏ . 


والآن » كما ترى فى مثالنا السابق نقوم بقراءة عدة بيانات » إلا أآنى افاجاً دوما بكون الناتج 
سالب برغم ان العملية ضرب رغم ان توقعي ان كل المدخلات لابد آن تكون موجبة وبقيم كبيرة› 
يا ترى ما هى المشكلة ٩٩5‏ 


من اجل هذا وضعت هذه النقطة للمراقبة» وقمت بالبدء بتشغيل البرنامج ومن ثم التنقل بين 
الخطوة والآخرى ۴11. 


we 


ستجد ان البرنامج سيقوم مباشرة بالتوقف وقت الوصول إلى هذا السطر » وسيمكنك رؤيه 
المتغخيرات كلها فى هذه الأآثناء بالشكل التالى : 
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return S0; 
} 


private void Formê Load(object sender, EventArgs €) 


int aüm™1, x#Û?ړ‎ 
for (int 4 = Û; û ¢ 107 4++( 
[ 

x = ReadDaraSomeihere [) ي‎ 


-_ 


HMe33ağêBox. SBOW (3U. TOSEE1R9()} 2 


الصورة 21. 2. متابعة قيم المتغيرات المحلية. 


الآن استمر في الخطوات › بعد 6 خطوات ترى ماذا حدث $ 
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آه الآن ابتدأت فى تخيل سبب المشكلة » فعلاً عندما يصل الرقم لحد ما يبدأ الرقم يتحول إلى 
سالب » المتخير لم يعد يستوعب رقما اكبر من هذا . 
إذن الحل بتعريف ناتج عملية الضرب ع٥1طubا0(0U‏ ... انتهت العملية وآمكنك الحصول على الناتج 


المطلوب : 


9.705025E+16 


هذه هى الفائدة التى نحجنيها من عnملıة DebUg JI‏ > في مشاريعك الكبيرة سيكون الموضوع آڪتثر 
صعوبة و تعقيدا وربما تحتاج لمراقبةه قيم المتغيرات بين عدة دوال > لذا سيكون الحل الآمثل لڪ 


بالاعتماد على هذه الآدوات . 


ليس هذا فقط › بل في هذه المرحلة يمكن تغيير قيم المتخيرات › لهدف ما وجدت انڪ تحتاج إليه 


حك دافدة ایر الل التاتى ملا : 


pPFivaTe voila Formê Load (ob jecT S#ENMEF, EYVENTAFGI3S €] 
أ‎ 

double 3um™l , Û; 

for (int 1 = Û; 1 € 102: 14+4} 


| 3555555 | 


u. TIE trTAinNnTIT Nz 


الصورة 21. 3. تغيير قيم المتغيرات أثناء عملية التنقيح. 


أيضا كل المتغيرات والفنات الموجودة مراقبة بالشكل التالى : 
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| Valiê 


| iHoEF gms Appl ça on 11,۴ û2, Text: Ff mia} Ek ten. 
| ي‎ base {iindawsFormsApplca Ban 11. Formê, Text: Formê} 
E activeControl ا‎ System. 


TH ê AtescaleDimension: {Width = 5,0 Height = 13.0} yate, 


I FF AutošcaleFactor {Width = 1.0 Height = 1.0} System, Û 


A to ScaleiodEe Fant System. 
3 
2 انار‎ 


r, FET 


الصورة 21. 4. مراقبة المتغيرات المحلية. 
ولو رغبت فى مراقبة متغير بيعينه فيمكنك اختيار اضافة مراقبة خاصة N31٤١‏ dهA۸‏ بالشكل 


التالى : 


e 


وعدت | ود 
ù Edit Vake 7‏ 
sı Add wueh | : nn‏ 
عة | س 


Henadegmal Drtplaryt : 
| E | hae Threada in Seaireê Even LArigt] 


Coadlapze Parent 


u LL-Feremz, Test Firaz) 


ا سد ن 
رات اټ 


الصورة 21. 5. مراقبة المتغيرات المحلية. 


حيث سيقوم بفتح نافذة مراقبة خاصة به وحده بالشكل التالى : 


Hie ma aq a Bore . Ear [am - TENE FARS OF j 2 


Wahi 


0 جک ي‎ iw : e ULIFirmj Trek Firm IF gr 
2. j irra اا ا و‎ 
i gê î EA = a] | ا‎ 
٢ قوف وآ ر چوک‎ 1 7 1 a 
I î8 E Fam, Pca a 


[ Ei irak 
ا‎ LiF ima bêar 
@ 9 rpm Fig? الي اس‎ r re Fe e TF Ee re 
Erd 


الصورة 21. 6. نافنذة ال .WatCh‏ 
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2. تجهيز البرامج للتوزيع 


بعد ان نكون قد انتهينا من برامجنا › نحن الآن بحاجة لنقلها إلى المستخدم »› ولما ڪان 
جهاز المستخدم قد لا يحتوي على كافة المكونات اللازمة لتنا للعمل نقوم ان بعمل ۸؟ءااbںP‏ 
للبرنامج على شكل مطل۷اأ56 ليقوم المستخدم بتشغيله مباشرة » يتم ذلك من القائمة -ل|أ6U‏ 
Publish‏ . 


- بداية قم بتحديد المكان الذي تود النشر إليه » ليكن كع" 1ةا:C‏ مثلا . 


- فى الخطوة التاليةه قم بتحديد المكان الذي تود للمستخدمين تحميل نسخة البرنامج منه › 
ستختار CD-DVD‏ . 


- إذا كنت ترغب فى أن يبحث البرنامج عن التحديثات فى مكان معين فقم بذلك وإلا تجاهل هذه 
الخطوة . 


. Finish إاضخط‎ - 


- ستجد ڪل شيء تم تجهيزه » يمكنك عمل بعض التغييرات عن طريق خيارات المشروع ثم 


ishاub‏ » متلا لتضمين ملفات اضافية أو خلافه . 
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Apphcalion 
Build 
Bili Evankı PFublzh Lozatioîî 

Fublzhing Folder Location [web rite ftp zerer, or ile path 
Uebug اا‎ 
Resources Installation Folder URL (if different than above}: 
SEFÊ wm 
Settings Inrtall Made and setlinrgts 

: ation ir wrailable ime Sek pphcalion Filet... 

Reeve The application ıt avalableê enline galy | اموق‎ 

o The application is walable offre as well (lnarchabke from Start ren) Prerequisites... 
Signing : 

Lipa 
Setuty pd 
Publish ساس ت‎ 

Code Analysis Poblgh Yere 

Mapai: hiirner Build: Rewaiort 

1 ا 1 1 

| Anuformatrcally increment revirion wath each publirh 

Fublizh Witzard.., Fublezh Pawe 


الصورة 21. 7 خصائص المشروء/ تبويب النشر. 


ن اصبح برنامجڪ جاهزا للعمل › قم بالضغخط على ص لںا‌S‏ وسوف يتم تحميل البرنامج في 
۴5 اعدا ويمکتنڪ التعامل معه ڪبر نامج عادي جد 


- یمکنڪ استخدام آدوات آأكثر تقدما من أجل هذه الموضوغع مJûi installshield‏ و setup‏ 
۷ أيضا يمكنك الاستفادة من الخصائص المتقدمة التى توفرها لك مشروعات ال ملاأه؟S‏ 
فى الفيجوال ستوديو من القائمة ا٤‏ ز٥۲۴۲ €W‏ حيث ستكون قادرا على التحكم فى سير وشاشات 


عملية التحميل والاتفاقيات و خلافه: 
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| New Project | 0 ا‎ 


Project types Termplates: NET Framework 3.5 ا‎ E 
Web تي‎ ual Studie installed templates 
Smart Deaige : جچد | ج‎ 
Office @ ® کو الق ف لش‎ 
Databaze Setup Project Web Setup Mergê Setup Wizaifd LAB Project Smart Dencê 
Reporting Project Meds. LAB Project | 
Test 
WEF hy Templates 


Workflow 5 


Databate Projects EF 
Other Langiiageêz : Search 
CnlinE TE... 
Distributed Sytem 
a ther Project Type 

Setup and Deployment 

Database 

Ertervsi bility 

Vaual Shudio Solutions > 


Create a Windows Installer project to which files can be added 


Plarmê: ال‎ 

Location: CAUserAhmed\ Document Vmual Studio AMOMProjêtt ب‎ Browgê... 
ا‎ Create new Solution "| [Create directory for solution 

Solution Plarmel Setup 


الصورة 21. 6. اضافة مشروع تسطيب. 


C# vs VB.net .3 


لو لاحظت طوال فترة دروسنا اعتمادنا بشكل متوازي على لغتي #€ و ۷6.1 » فما هي 
الفوارق أو أوجه الشبه بينهما . لنعد أولا إلى نقطة البداية لانطلاق ال أ٥١..‏ 


في بداية ظهور مبادئ ال أ۸€. كانت #€ هي اللغة المعتمدة » ولما كانت مايكروسوفت 
تمتلك لغة برمجة ذات سوق واسع في ذلك الوقت وهي فيجوال بيسك » رأت مايكروسوفت ألا 
تخسر مبرمجيها بتطوير لغة موازية شبيهه في ال ×ه١5۷‏ مع الفيجوال بيسك ولكنها تطبق 
مبادئ ال ا€١.‏ » من هنا جاءت ۷/8.١6‏ والتي تعتبر نسخة آخرى من ال #) ولكن بأسلوب ال ۷8 › 


وهذا هو الشبه الوحيد بينها وبين اللغة القديمة » اسلوب الكتابة فقط ليس إلا . 
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ولذا إن حاولنا التحدث عن الشبه بين #€ و أ٥8.1/‏ فلن نستطيع استيفاءه »› الأسهل هنا هو 
سرد الاختلافات فهما في النهاية لغة واحدة » ستبدآ بسرد الفروقات في أسلوب الكتابة . 
تاتا ١‏ طريفة تركف المتفيرات ` 


CF 


IL E, 
ClassName x = new ClassName (); 


VB.NET 


Dim X As Integer 
Dim X As ClassName = New ClassName () 


لحد المساواة تال من < > 


- رابعاً : تعتمد لغة ۷8.16۲ على جمل مثل ٤١۵‏ وتستخدمها في الاجراءات والفثات وغيرها مثلاً : 
VB.NET‏ 


1E. x=1 Then 
ENd LF 


وكذلك في الفئات والاجراءات أيضا : 


using System; 
namespace MyNameSpace 
{ 
CLASS HELLIONoOELG 
{ 


ACAE1G TOIL Main (SEEIRO[T. a05) 


| 


CYLON. CONSOLE. WEITERE (TEE LLCONOELO FT, 
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VB.NET 


LMOGOTLS SYSCEN 
Namespace MyNameSpace 
Class HélloWorla 
'Entry point which delegates to C-style main 
Private Function 
Public Overloads Shared Sub Main () 


Malin (System.Environment .GetCommandLineArgs () ) 
ENG Sub 
Overloads Shared Sub Main (ByVal args() As String) 
System.Console.WriteLine ("Hello World") 
Enid Sub "Main 
End Class 'HelloWorld 
End Namespace 'MyNameSpace 


#C بینما في‎ And, ,ع0‎ Not, 0۲٤215٥ في فيجوال بيسڪ ا۱€. سوف تستخدم‎ > a 


سو ف تستخدم && || 1 
چ اکسا : عند جمع النصوص استخدم & في VB.net‏ و لکن في C#‏ استخدم 4F‏ 
سایغا : else if‏ ف„ VB.net yè ElseIf „a #C‏ 


- ثامنا : كما اسلفنا في موضوع E١۵0‏ » ففى الحلقات التكرارية تعتمد #€ على الأقواس أيضا : 


LOE (ANE 1 ;, 1 >= 10; 1 + 2( 


System.Console.WritelLine (i1); 
System.Console.WritelLine (1*10); 


وفي حالة كونها سطر واحد يمكن الاستخناء عن الأقواس : 


for (intl 1 = 2; 1 <= 10; 1 += 2) 
System.Console.WriteLlLine (1); 


أما فی ۷/8.1٥‏ فھی تأخن شکلا موحدا : 


VB.NET 


FOF GCG = £24 TO LU STE 2 


System.Console.WriteLine (c) 
Next 
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ونفس الأمر بالنسبة لباقى الحلقات التكرارية N111٥‏ و €2€ 10۲ وخلافه . 
* تاسعاً : بالنسبة للمصفوفات وخلافه يستخدم القوس [] بدلا من () فى ۷8.٤‏ . 
IMEI. UMS = U lg Ay SF,‏ 


TOF (ARE 1 OF E. &-DUMS. LENGER 1F) 
Console.WriteLlLine (nums [11|); 


Dim nums () As Integer = {1l, 2, 3} 

For 1 As Integer = Û0 To nums.Length = 1 
Console.WriteLlLine (nums (1) ) 

Next 


< لن حك تفا mmr‏ #اأڪثر من سطر في ۷8.۸6 مثل /* */ في ٤#‏ » وڪنذلڪ ×٧1‏ 


K0 056‏ على الرغم من آنني قرأت انها قد تكون مدعومة في الاصدارة القادمة . 
- فى €# سوف تستخدم العلامة المثوية 5< ا من 0٩۵‏ في ۷8.1٥61‏ للحصول على باقي القسمة. 


- لن تدعم لڪ ۷/8.1 استخدام Bitwise Operations‏ في حالة Assignment‏ على عکس ال ٤٥#‏ 


حيث تتيح لڪ ذلڪ . 


لن اطيل لإنك - كما لاحظت معى - فإن هذه الفروقات ا تتعدى كونها فروقات لغويه » وهي 
فروقات غير ذات قيمة بالمرة » ساحيلك على رابط لعرضها كاملة فى نهاية الدرس › ولكن الآن 


لنحاول استعراض النقاط غير تلك المهتمة بآسلوب الكتابة . 


- أو ل تلك الفروقات هى cas€ S٣51۷‏ » حیث أنه فٴى Ahmed jlèف VB.net‏ هی ahmed lkunèi‏ 


وهو ما ا يوجد في أي لغة في العالم سوى 6351٤١‏ » ولا أستطيع أن أحدد فيما إذا كان هذا ميزة أم 


ااا 


مميزات في ۷/5.۱٥‏ - باختصار - 
- دعم ال ٣5‏ e€arametم‏ اnaصtioامo‏ موجود في ۷/8.16 ولیس موجود في #C‏ . 


with -‏ موجود في VB.net‏ و ليس موجود في #C‏ . 
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Catch ... When -‏ موجودة في ۷8.٣6‏ وهي تتيح نظاماً أفضل لفلترة الأخطاء 


- يقوم ۷8.٥‏ بعمل eاiامصهع‏ للكود في 8٤)6۲00١١4‏ » وهذه ميزة في التطبيقات الصخيرة 


ولكنها عيب في التطبيقات الكبيرة حيث تلاحظ بطء الفيجوال ستوديو . 

مميزات في #€ - اختصار - : 

- یدعم #٣‏ ما یعرف باسم کع‌مرا unsig"€٩‏ » وهو ما یمکنکڪ استخدامه أيضاً في ۷8.1٤‏ و لكنه 
فض خد اسان راا 

- الميزة الأقوى في #٣‏ والتي لا تتوفر في ۷/8.١6‏ هي السماح باستخدام 


unsafe‏ و unmaneged code‏ ما یتیج لک العمل علی ۴0٣6۲5‏ وخلافه » ما يفتح لك آفاقا 


واسعة في عدة مجالات متثل معالجة الصور 8١|€55٥٤۲0م "۵8٥€‏ | وخلافه . 


ولعل هذه الميزة مما جعل €# قريبة من C++‏ من ناحية تعاملها مع كود منخفض المستوى 10W‏ 
d٤‏ اعاعا وهو ما يحجعل سى شارب الاختيار الآأمتل للكتثيرين . 


- لن تجد ^ remeآاinc‏ و decrement‏ فی اعn.‏ ۷/8 حیث ستتضطر إلى كتابة كود بالشكل التالى : 


بينما في #€ يمكنك القيام بذلك بالشكل التالي : 


mr: 


- يمكنك أن تجد الخاصية 51260 فى #€ بينما لن تجدھا فی ./68.٣٤٤‏ 


«e 


ڪان هنا موا لآو ضح الاختلافات والتى ستتعامل معها كرا > و كما احظت فهى فى أغلبها 


ليست ذات قيمه كبيرة . 
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فى النهاية : ماذا أختار ؟ 


اذا كنت منتقلا من 6.0 ۷/8 فعلیڪ ب ۷/8.16 ما إذا كانت لديك خبرة ب ۵۷4/ل/++C٤/C€‏ فعليڪ 
ب #٤‏ وإذا كنت جديدا في مجال البرمجة فأنت حر في اختيار ما يناسبڪ وان ڪنت أرشح لڪ 


# كر آي شخصى فقط . 
هذا الملف من موقع مايكروسوفت لتوضيح كامل للفروقات : 


رابط ھی 
http://support. microsoft.com/kb/ 308470‏ 


4. وقدھةۃ إلى M000‏ 


في عالم الجافا تعتمد على ۷/۷ والذي يجعلها قابلة للعمل على اي مكان عليه ۷/٧‏ حتى لو 
كان تلاجة او فرن مايكرويف › في المقابل يسبب هذا الموضوع بعض البيطء فى تنفين الحافا 
ولكنه على كل حال من آهم مميزات الجافا. 
وفى العالم المقابل عالم ا0۴كماءMi‏ كانت منتجات ٤أكة6‏ اجuءالا‏ و #€ آو M۴٣‏ غير قابلة للعمل 
ولكن مع الوقت تم تقدم طرق وآدوات لتسمح لبرامجك بالعمل على نظم تشغيل متعددة » آشهر ها 
هو VN01۸0‏ وهو موضوع درسنا الحالي. 
في الواقع حتى اللحظة لم أجد مصدر يفيد بأن N0۸١0‏ اصبحت متوافقة مع2008 أ€"١..‏ ولكنها 
متوافقة مع 2.0 ۸€. سواء على شكل ۸5.۸6€ أو برامج تطبيقية أو قواعد بيانات وخلافه » وبرغم 
ذلك و جدت عدة روابط للمحاولات الحالية للتوافق تفيد بوصولهم إلى تطبيق آغلب نقاطها - ليس 
كلها - » على كل يمكتنك الدخول على هذا الرابيط لمتابعة الاأخبار: 


http://www.mono-project.com/plans 
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من الموقع السابق قم بعمل 00W ١10٥3١4‏ لل 0۸0 » وخلال مراحل التحميل قم باختيار التقنيات 


التي ترغب ل ۱0۸0 بالعمل معها. 


المرحلة التانية هى بتشغيل ال ٤٣ا 0۳3٣۵‏ الخاص بال 10١0‏ والذي ستجده فى قائمة 


البرامج » ستجد من ضمن الأدوات المتاحة لك الأدوات التالية: 
65٣٤ع‏ ڪو مبايلر للسي شارب 

:!٥‏ ڪو مبايلر للفيجوال بيسڪ 

asM2اsm/iھاi:‏ کو مبایلر تل اا٣‏ 


كل واحدة منهم - السى شارب كمثال - يتم التعامل معها كما قمنا بالتعامل سابقا مع ال أهلاءا۷ا 
Studio Command Line‏ ا > الفارق الوحيد بين ك٤8۳‏ و ك٣"۳‏ هو أنك٣٤‏ ع يدعم التقنيات 


الجديدة الموجودة مع عالم2.0 أع١.‏ 


لنفترض ملف باسم 5٤.٥ام‏ ۳> يحتوي على ڪود #€ عادي ا > قم بفتح إLireJ Command‏ 


الخاص ب 10١0‏ ثم اكتب الأمر التالي: 


ڪو د | shell‏ 


gmcs /target:library /out:Sample.dll Sample.cs 


و فقط ! 
الآن اصبحت لديك مكتبة قابلة للعمل على اي نظام کڪ عمل 0ا کا 


وھ 00 کک متا 


على اللينکس يمکنڪ فتح مشروعڪ باستعمال N0۸00 €۷€10٧‏ كما على إل 510010 VISUAL‏ : 
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# Applications Places System On 
MonoDevelop 


Filê Edit view Run Search Tools Window Help 


New File ES New Solution 


[m] Help Template 


mm 3‏ د 


Console Project Empty Project EE 


ILAsrm Jlaûê# PTO| 
MonoDevelop E | 1 


Qlada# 2.0 Gnorme# Gnorme# 2.0 
Project Project Project 


WEMNêt E E 


Nernerle 


Gtk# Project GIkK# 2.0 


e, a mı, 


ã Gladê# pröjêct with öonê windöw ãnd button 


TG Tg gg gg gg Tg < < 


Location 


Name: testApp 


Location: /homefuburtu/Deskto Pp Brûwisê 3 | 


| Files Clas e 
ESERÎ project subdrectoy: TT 


#| Create seperate Solution subdirectory 


Project will be saved at JhomejfubuntuJDesktop/testApp | 


X* Close 


الصورة 21. 9. اضافة مشروع ٤#‏ جديد في ال 10۸006۷610۲ على اللينكس. 


5. بروحة الذأجهزة الكفية ون خلال ال أع.؟. 


آخر مواضيعنا المتقدمة قبل الولوج لعالم الويب هو برمجة الأجهزة المحمولة » ولكن قبل البدايةء 
ما هى الآجهزة الكفية ş Pocket °٥٠‏ 


هي مجموعة من آجهزة الهواتف المتنقلة تتميز باستخدام نظام تشغيل متقدم اضافة إلى 
هاردویر يمکنها من تشغيل مهام هذا النظام » ويشکل نظاما التشغیل Windows Mie‏ ونظام 
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التشغيل سيمبان اضافة لنظام 2003 ٤‏ sس0لك"٣‏ أ وما قبله أشهر نظم التشغيل التي تعمل على 


الآأجهزة الكفية . 


آما على صعيد الهاردوير فالأجهزة الكفية لا تمتلك هارد ديسك )كا0 ۳3۲۵4 بالمعنى 
المشهور » لکن بعضاً منها يستخدم جزء من ال ۸۸٥۷‏ كهارد ديسك ل يتم مسح البيانات من عليه 
بعد اعادة تشغيل الجهاز » وهناك أنوع أخرى تستخدم ۸0۷ لتخزين البرامج ونظام التشغيل وما 
شابه . 


وماذا يمكنني عمله للأجهزة الكفية ۲٣‏ أع‌)عم۴ من خلال أهم. $ 


تستطيع من خلال لغة البرمجة اضافة برامج تستخدم آجزاء معينة من الجهاز لتحقيق 
خدمات للمستخدم سواء أكان استخدام بسيط (استخدام الذاكرة) لتخزين البرامج وتنفيذها 
وتخزين قواعد البيانات » أو كان الأمر يختص باستخدام الكاميرا مثلاً والأجهزة الصوتية في 
الجهاز . 


كيف آأيداً ؟ 

بكل بساطة › سنقوم بعمل برنامج يظهر رسالة ترحيب عن الضغط على زر آمر . 
1- قم بتشغيل الفيجوال ستوديو Visual Studio .ı€†‏ .„ 

2- قم باختيار ۷6 أو اللغة التي تود البرمجة من خلالها . 


gî Smartphone 2003 ھî‎ Pocket PC 2003 ومن ثم قم باختيار‎ › Smart DeVİ›€ قم باختيار‎ -3 


0۷s ٤ 0‏ "| حسب الجهاز الذي تود العمل عليه . 
4- بعد اختيار القسم المناسب Device Applicati0¬ راlيتخاڊ pa‏ . 


5- قم بسحب ١0لا‏ من الأدوات » وقم بكتابة هذا الكود فى داخله 


CF 


MessageBox. Show ("Welcome..."); 
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VB.NET 


MessageBox. Show ("Welcome...") 
› قم بالضغط على ۴5 اختار نوع ال 0۷أم06 الذي ترغب فيه حسب الجهاز الذي تود العمل عليه‎ -6 


أو قم باختيار نوع يعمل على ال ٣‏ للتجربة فقط . 


7 - مبروك » لقد قمت بعمل برنامج الأول » يمكنك أيضا نقل الملف التنفيذي €×€ إلى الجهاز 
و تشخيله ميباشرة » ا يد فى هذه الحالة ان يكون .net compact framework‏ موجودا على الحهاز 


الكفى Pocket PC‏ . 
8“ المهام الآساسية - غير تلك التي تعودت عليها في البرمجة التقليدية هي تلك المختصة 


بالتعامل مع بنية الجهاز وخلافه » فمثلا لتحديد اتجاه الشاشة فى الأجهزة التي يمكن أن تنقلب 


فيها الشاشة : 


C ) سا‎ 


# 
SystemSettings.ScreenOrientatlon = ScreenOrientatlon.Angle90O; 


VB.NET ا‎ 


SystemSettings.ScreenOrlentation = ScreenOrilientation.Angle90; 
: Touch Ke¥yb03rd ولتمكين‎ 


ڪو د 6 


# 
InputPanell1.Enabled = true; 


VB.NET ا‎ 


InputPanel1.Enabled = True 


ومثلاً لعمل ۸٥5€‏ للجهاز بعد استيراد اال.ااdإع۲هc‏ : 
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privalé INt CTL CODEINE Devicelype;, 1int Func, 1ihl Method, 1ih Access) 
{ 

return (DeviceType << 16) | (Access << 14) | (Func << 2) | Method; 
private int ResetPocketPC () 
{ 

Cont INC FILE DEVICES EAL = 

const Int METHOD BUFFERED 

CONSE IRE FTLE ANS ACUEIG = 

int bytesReturned = 0; 

LHL LIOCTL HAL REBOOT; 

LOCI HAD REBOOT = COIL CODE (FILE DEVICES FAL; LS, METHOD BUFFERED, 
EFTLE. ANT ACCESS 

TELUEHN KEENE LIOCORLCFOLCLOCTEL HAL, REBOOT, IOCPLCTF.2C0O, U, LNLCPLCE.ACEO,. O, 
bytesReturned) ; 


VB.NET 


Private Function CTL_CODE (ByVal DeviceType As Integer, ByVal Func As Integer, 
ByVal Method As Integer, ByVal Access As Integer) As Integer 

Return (DeviceType << 16) Or (Access << 14) Or (Func << 2) Or Method 
ENC. FUNLNCETON 
Private Function ResetPocketPC() As Integer 

Const FILE_DEVICE_HAL As Integer = &H101 

Const METHOD_BUFFERED As Integer = 0 

CONST FILE _ANY_ACCESS As Integer 0 

Dim bytesReturned As Integer = 0 

Dim IOCTL_HAL_ REBOOT As Integer 

JOCILL: HAL REBOOT = CIL CODEETLES DEVICE HAL, LS; MEIHUOD- BUETERED, 
FILE_ANY_ACCESS) 

RELUEDN. KELINE LLIOCORNLEOLALOCTE HAL. REBOOT, INLPLL, lG, Uy INLBLCE. aC, U, 
bytesReturned) 
EC’ FUNCETOT 


كيف اكمل البرمحة من خلال أ۸€. ©$ 


مكل تأكد فان الرامح السابنقة يعد من أنسط ا١‏ زم الممكنة لرنامح بعمل lea «Pocket PC‏ 
: يد فإن البرامج بقه يعد من آد . برنامج د : 
ستتضطر لاستخدام التخزين في البرامج الجدية والتعامل مع قواعد البيانات حيث يمكنك استخدام 


الملفات النصية كقواعد بيانات » أو ملفات )۷× وحتى قواعد البيانات من SQL Server CE £ gi‏ . 
يمكنك الدخول أيضا مباشرة على هذا الرابط من مايكروسوفت لتبدء منه ٠‏ 


رابط ھے 
http://msdn2.microsoft.com/en-us/library/aa458/721.aspX‏ 
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1. مقدمة إلى تطوير المواقع 


فيما مضى من الدروس › كنا نتحدث هأ «Desktop ApplicationsJig Console J| ple‏ 
و خلال هذه المراحل كنا نعتمد على وجود جهاز واحد للتنفيكن » و حتى فى حالةه وجود شبكةه فقد 
كان الوضع يعتمد على عمليات ارسال واستقبال بيانات بين الجهازين او المشاركه فى المصادر او 
الاتصال ب W€ s€ ۲۷1٤٥٤‏ كما ر ينا › اما مع عام server side languagesJا pJle gı ASP.net J|‏ 
عموما فالوضع مختلف نسبيا » ولذا قبل البداية نحب ان نتعرف على انواع مواقع الإنترنت: 
- مواقع ثابتة : هذه المواقع عبارة عن مجموعة من التوصيفات باستخدام )1۷ء يمكن استخدام 
صور وفلاشات و خلافه ولكن ا يو جد اي نوع من انواع المعالحة في هنذا الموقع. 
- موقع ديناميكيةه عند العميل : هذا النوع من المواقع يتمتع ببعض انواع المعالجه ولكنها تظل في 
جانب العميل فقط » يتم فى هذه المواقع استخدام JavaScript Jٹiم Scripts‏ و VBScript‏ » لکن 
الصفحهة التى تراها امامك تعمل عندك انت فقط. 
- مواقع دينامكية : هذا النوع يتم عمل معالجة لبياناته في السيرفر وتحصل انت فقط على الناتج 
الذي يمكن ان يكون من النوع الأول والتثاني › في هذه الحالة يسمى تطبيق انترنت وليس موقع 
انترنت. 
متال : 
صفحة بريدك الالكترونى التى تراها امامك هى صفحة من النوع الثانى حيث تحتوي على بعض 
اوامر الجافا سكريبت اضافة لبعض الجداول والحقول وخلافه من )11۷ .» لكن في الواقع فإن 
تشكيل هذه الصفحة بيهذه الصيغة جاء عن طريق يعض عمليات السيرفر التى قامت يقراءة يعض 
قواعد البيانات وشكلت لك الجداول التى تحتوي على البريد الوارد لك و خلافه. 
لذا فى هذه الصفحة انت غير قادر على رؤية اكواد اللغة التى تمت برمجة السيرفر بها › ولکٽنڪ 


تستطيع مشاهدة النتائج فقط حيث ان عمليات المعالجة تتم على السيرفر فقط. 
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دوره حیاة تطبيق الإنترنت: 


بمجرد ادخالڪ لعنوان موقع ما يبتدأ ب - //: ا وهو ما يعني انڪ ستستخدم بروتو ڪول 
- م tاhيقوم‏ البروتو ڪول بارسال هذا العنوان إلى ما یعر_زف Domain Name Ser V€)‏ ااا 
باسمN5‏ 0 . يقوم هذا ال 0S‏ بتحويل الكتابة التى قمت بكتابتها لعنوان أةءأئر۴ على الإنترنت 


خاص بال | صاحب الموقع » شكل ال 05 يكون بالشكل التالي كمتال: 


Name IF 
www. yYaNoo.CoOm û bit — 4 parts IP 
www. hotmall. com | KKKKKXIX KKKXKKNK. KKK. XXX 


الصورة 22. 1. عملية تحويل العناوين النصية إلى عناوين ۴| في خوادم ال .0N5‏ 


الآن اصبح بالامكان معرفة ۴| المميز لهذا الموقع › الآن يتم فتح - ٣0م‏ غالبا ما يكون 80 - ويتم 
ارسال طلب المعالجة إلى هذا الموقع وهو ما نطلق leيRequesta http‏ 


في حالة كون الموقع ٤531ء‏ يتم الرد بالصفحة المطلوبة فقط » اما فى حالة كون الصفحة 
dyn‏ يتم معالجة البيانات المطلوبة وارسال صفحة النتائج إلى المستخدم وهو ما نطلق عليه 


. http Response 
لكل بروتوكل دورة عمل › وما يهمنا هنا هو م۸ فقط.‎ - 
Client Side Web Sites Jınalا ماع‎ 


يستلزم هذا النوع بداية معرفة ب ا11۷ » وهي لغة سهلة جدا يمكنك التعرف عليها خلال اقل من 
تصف ساغة عن طرق هذا الرانط ماد 


رابط گي 


www.html4arab. Com 
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ومع ظهور برامج ابتداء ب ۲38€ ۳۲٥٣۸‏ وانتهاء ب W3۷8€۲‏ ۳ ع0۲ » اصبح بامکانك عمل الموقع 
دون اي معرفة بال ا۳1۷ عن طريق الادوات فقط. 
ايضاً تحتاج ل 3۷3ل او أمأ٣٤۷05‏ لبرمجة بعض الخصائص » ايضاً ضمن ال ا1۲۷ تجد عالم ال 
۴١‏ الذي سيمكنك من التواصل مع العالم الخارجي › وتحتاج لبعض المعرفة في هذا الموضوع» 
يمكنك مراجعة الدرس التالى كبيداية للأم ۷05٥٣‏ - من مدونتى - : 

http://anmedgamal-technical.blogspot.com/2008/08/ vbscript. html 
javasCripİ JÛ والدرس التالى كبداية‎ 


http://www.w3schools.com/] S/default.asp 
والآن اتوقع انك ملم بالاساسيات فقط » لا اطلب منك الكثير في هذا المجال حاليا...‎ 


Web Service malı ãةمıخ و‎ Web App/||°ca†i01 الفرق بين تطبيق الويب‎ 


- تطبيق الويب هو عبارة عن مجموعة من الصفحات وملفات الأكواد وقواعد البيانات التى لها 
دورة حياة خاصة متلها متل اي برنامج › يتم فتحها واغلاقها وتنفين احداث وخلافه 

- اما خدمة الويب فهى عبارة عن خدمة تستقبل يعض البيانات و تعيدها بعد يعض عمليات المعالجة» 
يتم التعامل معها من اي لغةه برمجة قادرة على الوصول إلى اسمها ورقم البورت فقط. 

ال ۶| : 

هو السیرفر الخاص ببرمجیات ۸5۲ و ۸S۲."‏ . ووجوده شرط اساسى ليعمل كودك ۱ل€٥ASP۶P.۸‏ 
سواء على جهازك الشخصى أو على السيرفر الذي ستسضيف عليه موقعڪ لاحقا. 


ڪو نك قمت بعمل ملںااعء لل 0اه لاء أهلاكأ۷ا يعنى انك قمت بتحميل ال ؟|| او للدقة فأنت قمت 
بتحميل €×€.۷e۲عe65ع۷.W e0‏ والذي يشمل ال ؟|| » اما إذا كنت تود البرمجة على المفكرة 


Control Panel pSحتl| فلا بد من عمل م 1ا56 له » وذلك عن طريق اختيار لوحة‎ lia Notepad 
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اضافة وازالة برامج Add And Remove Progra ۳"€s‏ واختر اضافة مكونات ویندوز كك۸ 


.IISJı g49 Internet Inforamtion Services lginض›؛‎ ja sدجîaw‎ « Windows Compomnent 

* الطريقة السابقة كل حسب نظام التشغيل الذي يعمل عليه. 

تجارب بسيطهة 

قم بفتح N0830‏ جديد » قم بتسميتها لتكون ١ا"6×.۸†۳٣|‏ مثلاً ثم قم بكتابة المحتويات التالية 


فيها: 


<html> 
<head> 


<title>My First Pgae</title> 
</head> 
<body> 


<center><img src="http://l.yimg. com/a/i/ww/beta/y3.gif'"><</centeR> 
<br> 
<font color=red size=3>Yahoo!</font> 
<br> 
<a href="http: //www.yahoo.com">Link Here</a> 
</body> 
</html> 


الان ستقوم برسم الفورم التالى ادخال البيانات: 


Welcome 1! 


N: 


TITIE 


Password 


do anything 


الكود الخاص بهذا الفورم كالتالي: 
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<html> 
<head> 
<title>My First Pgae</title> 
</head> 
<body> 
<h2>Welcome !!</h2> 
<br> 
<form name='" form1 "> 
<table border=0> 


<Er> 
<td>Name</td> 
<td> 


<input type=text name=textname size=10> 
</td> 
</tr> 
<tr> 
<td>Password</td> 
<td><input type=password name=textpass size=10><td> 
</tr> 
</table> 
<br> 
<input name="buttonl'" type=button value="do anything" (); "> 
&nbsp; «nbsp; «nbsp; 
<input type=reset value="Clear"> 
</form> 
</body> 
</html> 


والآن نرید ان نقوم بالتآڪد من آن المستخدم قام بادخال بيانات في الفورم »› لو قام بادخال بيانات 
فسوف نظهر ها له فى رسالة نصية و على الشاشة ايضا › لذا ستذهب للزر Button1‏ ونخيره ليصبح 
بالشكل التالى: 


<script language=" javascript "> 
function doCheck () 
{ 


if (form1.textname.value!="" || form1.textpass. value!="") 


4 


alert (form1l.textname. value) ; 

document .write (forml1l. textpass. value) ; 
j 
else 
alert ("enter data first 1"); 
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Visual Studio ۃlختwl‎ 


سننقل نفس هذه التجربة البسيطة ولکن باستخدام A۸5۲."6٤‏ من خلالہاdں†S‏ اھuءالا.‏ قم بفتح 
الفيجوال ستوديو وقم باختيار ويب جııد ASP.net Web Site رoخI pè Website‏ 


Templates: HET Framework 35 


Visual Shudié installed templates 


RR Fg © & 


ASP.NET ASPINET Ermpty Web WCF Serice ASPINET 
Web Site Web Service iE Eeports Wi... 


My Terr plates 


5e‏ اقا شلق 
Toolkit We... Online Te.‏ 


û, blank ASP.NET Web site (NET Framework 3.3] 


| Location: File System أ‎ CserA hme Dec urverts Visual Studia AMEN ebSites Nebe 


| Language lC < 


اللآن قم برسم نفس الفورم و لکن من الادوات الحانبية: 
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Login 
WebParts 
HTML 

lk Pointer 

ااا ت ت 


I E E E 


2 Input (Submit) 
lab Input (Text) 
Input (File) 

Input (Password) 
Input (Checkbox) 
e rl e 


e8 T Textarea 
HH Table 
laê) Image 
select 


— Horizontal Rule 


الصورة 22 3 أدوات ال HI ML‏ في الفيجوال ستوديو. 


ملا حظة 
لا تنس اننا حتی اللحظةۃ نتعامل وع ادوات ا۷N1‏ ۳۲ ولیست ادlaٽ ASP.net‏ 


وعندما تقوم بوضع الكود » قم بالضغط المزدوج على ١0لا6‏ وقم بكتابة الأوامر مباشرة: 
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Cea Objet Bı Eel T [Pie Fogg) ¥ 
< Faqe Language = "CFE" Muto venTHireup="Ttrue™" CodeFile" perfault.aSpE oa" Inherita=™ CLeEfaulTt"™ Nz 


ZILTTFE Biml FUBLIL “=F FNRI FOTD ABIL 1.0 IréanslEionsly FEM" “iEEEBI 


i i TE 


XZDHEmML KEL E™= "THE EG 1 
ThE rFuna TS" ge VEE" 


j Te N, FET 


HELE ILSFORELEISA PaFETF ELIE 
TIEFIPT LEBGLEGE™"ISTESETIpE" Type "ECENTT JETESIEEIpPE 


Furmweriaa Bareenli aaclieki] {i 
LF f{Forml :TtEertrzame. value l="" || Earl :TtEeEKTEpaS33 Ta lue !2"" | 
alert (Form . TEKTNHamE. TaALuE] J 


AS TUEE AE MEE LE {ESER . CESEPLIS., ValGE] 


ELI 


lere (“enter data Firat 1"Ji 


TEoEems LA="Tfoeml1™" FUBSE™"gEEVETE™ 3 
lA YF 


êj ا‎ 
tı COCR 
Fr 


LEE 1= "AuaTtTTOAL™ typeE=“bhattoOn" value=" tutEon" GOAGLLGkK™"TeTarn BucEonl analickll™" FFI OD? 


ê Design | 2 špk | E Source | |j charm] | theemair | sseript>| ۰ 


الصورة 22. 4. محرر ال M1‏ 11 المتقدم في تطبيقات ال ASP.NET‏ 


يمكنك استعراض التصميم والكود سوية او كل واحدة متهما عن طريق التبويب اسفل الصفحهة: 


| 


l4 Design | O Split 


فقط ... كانت هذه هى تجربتنا البسيطة › فى الدرس القادم سنبداً بالتعامل مع A۸5 P.۸6‏ . 


ASP.net JJإ‎ ۃgدقو‎ .2 


فى درسنا السابق جربنا التعامل مع 51u01٥0‏ أةلاكألا وعمل صفحات ويب غير تفاعليه › فى 


هذا الدرس سنجرب تجربتنا الآأولى مع المواقع التفاعلية. 
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ASP.net a تجر‎ 


قم بفتح الآدوات 53۸06۲١‏ قم برسم مربع نص ×۲۴×80 واداة عنوان ٤٥۵ا‏ وزر امر 0۸لا8» فی 
زر الأمر قم بكتابة الكود التالي: 


ڪو د ) CF‏ 


LabEeEll. TeEXL= TEXTBOKLl TEK; 


VB.NET م‎ 


Labell1l.Text= TextBoxl1l. Text 


وجرب ... في الواقع لقد قمت يعمل اول صفحة AS ۲."٤٤‏ لك. 


» 


ماذا حدث فعليا ؟ 


لو فتحت صفحة ال ا۸11۷ ستجد أن لديڪ ڪود ا/۷ ۳٣‏ عادي يحتوي على فورم › فی 
الواقع فإن ما تم هو حدوث أ" N0لا5‏ إلى السيرفر حيث قام بارسال بيانات الفورم كاملة إلى 
السيرفر › وهناك على السيرفر تمت معالجة البيانات وتم اعادة الصفحة التي تحتوي على أعطها 
يحتوي على المحتوی ۸۸۳٤۵‏ او ايا ڪان محتوی مربع النص قبل الارسال » لو جربت مشاهدة 


الكود 1N]‏ الخاص بالصفحة الناتجة ستجد الجزء التالي من الكود: 


<p> 
<span id="Label1">Ahmed</span> 
</p> 
<p> 
<input name="TextBoxl1" type="text" value="Ahmed" id=" TextBox1l'" /> 
</p> 
<p> 
<input type="submit" name='"Buttonl" value="Button" id=" Buttonl" /> 
</p> 
كما ذكرنا » تمت معالجة البيانات › وتم اعادة الناتج إلى 0€11ه|اء اما الاكواد وخلافه فهى فى‎ 
السيرفر فقط.‎ 
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انواع ارسال البيانات. 


فی آي ۳٥۲۳‏ هناك طريقتين لارسال البيانات هى ۲051 و آ٤6‏ » فى الطريقة الأآأولى وهى 
الافتراضية يتم ارسال بیانات ال ۴۳0۲۳ مباشرة» اما في آ٣6‏ فيتم ارسالها في عنوان المتصفح» جرب 
تعديل الفورم الخاص بنا ليصبح بالشكل التالي: 


HTML ) a 


<form id="form2" runat="server" method="get "> 


رو چ ب aA‏ ا Untitled‏ @ 


Bf FCN? =H jtton&__EVENTVALIDA TION= RAFWEWAWEKSha3 TCgLSsObLrBgqKMSA4rGBY AFxAQ'‏ ر ج 
File Edit Fan Favori‏ : 


é Untitled Page | |‏ چ 


الصورة 22. 5. استخدام ال 6٤1 M۸0٩۵‏ رسال البیانات. 


ع 


كما تری › يتم ارسال كاهفة محتويات الفورم في العتوان > ظع فح المتصفحات دضع حدو دا 
على طول الفورم أما في حالة ۴051 فليست هناك اي قيود. 


لكل واحدة منهم طريقةه قراءة فيما لو اردت قراءتها متنفصله بالكود » وهو ما قد نتعرف عليه في 


مرات قادمة إن شاء الله تعالى. 
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Code Behind 


من ضمن المميزات الجديدة التى ظهرت مع ۸5۶.١٥‏ عن ۸5۴ القديمة هى فصل الكود عن 
التصميم » فى صفحة أككها٣ A5۲۴‏ قديمة كنت ترى هذا الكود مثلا: 


ASP.NET ر‎ 


v Id = Request. QueryString ("id") 
Response.Write ("<form action=test7.asp?id=" &€ v id & " method=post>'" ) 
Response.Write ("<font color=red><b><center>Write your 
C.V.</center></b></font><br>'"' ) 
2 <table> 
<tr> 
<td>Computer Skills :</td> 
<td><input type=text name=v_cs size=30></td> 
</tr> 
<tr> 
<td>Characteristics :</td> 
<td><input type=text name=v_ char size=30></td> 
</tr> 
<tr> 
<td>Interest's :</td> 
<td><input type=text name= v_inter size=30></td> 
</tr> 
<tr> 
<td>Language Skills :</td> 
<td><input type=text name=v_ ls size=30></td> 
</tr> 
<tr> 
<td>Education :</td> 
<td><textarea name=v_edu cols =30 rows=6>write your Study Field 
here</textarea></td> 
</tr> 
<tr> 
<td>Experince :</td> 
<td><textarea name=v_ exp Cols =30 rows=6>write your Experiences 
here</textarea></td> 


</tr> 
</table> 
<br> 
<hr width=75%> 
<center> 


<font color=red><b><center>Join Demand</center></b></font><br> 
<textarea name=v_ Join cols=40 rows=9 WRAP=physical></textarea> 
<br><br> 
<input type=submit value= Continue> 
<input type=reset value=Erase> 
</center> 
</form> 
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أما فی ۸5۴.۸٥‏ فاصبحت أكوادك فی ملف بامتداد “.€S‏ في حين اصبح التصميم فى ملف منعزل 


بامتداد ×458.* 


-“- la App_Data 

EEÎ Default.aspx 

۰ | Default.aspx,cs 
1 3 web.config 


وبرغم ذلك ما زلت قادرا على دمجهم فى ملف واحد إن احببت ذلك وهى طريقة ما زال يفضلها 
الكثيرين » وايضا قد تحتاج في بعض الاحيان لتطعيم ملف ال 5٥×‏ ببعض اکواد ال ۸8۲ خصوصا 


فى المشاريع المتشعبة. 


بخصوص اخفاء الكود » فعلا صمم لعدم عمل تداخل ولتسهيل الامر على المبرمج » ولكن برغم 
ذلك يظل اسلوب الكتابة فى صفحة واحدة انسب لعدة نقاط: 


- احيانا ما تحتاج لوضع بعض الاكواد التي لا تستطيع العمل عليها من خلال صفحة - *.٤S‏ والذي 


يعمل في مشروع ڪبير يستطيع ان يدرك ذلڪ. - 
- اسهل في التوزيع والنقل بين المبرمجين. 


- وفى نفس الوقت اسهل فى التعديل › فتعديل اسم حقل يتطلب التعديل فى ملف واحد فقط - رغم 


ان Sui‏ اهuاءآا‏ يقدم لك ميزة التعديل المباشر إلا ان عواقبها وخيمة عن تجربة. © © 


- و ڪدذلڪ هي اسھل في عمليهةه ال Deploy‏ لعدم وجود ملفات معتمدة على بعضها البيعض وهو 


مو ضوع درستا التالي. 
مکونات مشرو ع ال A5 ۴.۸٥۴‏ 


لو قمت بتصفح ال ۲۷ 0ir۴٤10‏ عااsاعN‏ الموجود على يمين المتصفح › ستجد انه يحتوي 
اضافة لملفات مشروعك على المجلدات التالية - حتى لو لم تكن موجودة فهذه الاأسماء القياسية 


لكتابتها -: 
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6۶6 ۴__مA۸‏ : يحتوي على الملفات التي تقتنص نوع المتصفح وتتعامل مع كل متصفح بناء 
على امکانیاته. 


0٤‏ _مم۸ : يحتوي على ملفات الأكواد والفئات 5565| التي تخص صفحات الويب. 
مم۸ : يحتوي علی ملفات قواعد البيانات. 

Resourcesاobaا6_ممA‏ : تحتوي علی ملفات المصادر ×۲85.* . 

hes‏ "آ_ممA‏ : يحتوي على الملفات التي تعني بالمظهر والستايلات الخاصة بالمشروع. 


WebReferences_ممA‏ : في حالة وجود بروکسي ۲۲٥٨۷‏ اوي اي نوع من ال ۷6٥6 5۵۲۷1٥٤‏ 


8 : يحتوي على الملفات الجاهزة مثل ملفات ال أال.* والتي يتم استخدامها في برنامجڪ. 
eاCyc Compilation‏ دو رة الترجمة 


فى حالة كون الملف أ۴ عأع١آ؟‏ » يتم ترجمة الملف بكامل محتوياته إلى فثنة ككةا) مشتقة من 
System.Web. U1 .PAge‏ باسم نفس الصفحة اضافة ل. ×35_ 


Autogenerated Assembly Hosted 
Under ãSpNêt_Wp.ÊêXê 
Runtime Compiler 


System. Web.Ul.Page 
(Base Class for All *.„_aspx Classes) 


MyPage.aspx 


MyPage_aspx <html> 
(Dynamically Defined and Compiled n 
Class Type) <himls 


الصورة 22. 6. دورة ترجمة تطبيقات ال .ASP. Net‏ 
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أما في حالة استخدامك لل N00٤٥‏ الخاص بعمل 1١١‏ 8€ 000€ » فسيتم عمل نفس الخطوات ولكن 
بدمج ثلاث ملفات سوية» الملف المسمى الذي يحتوي على ال () Initlal1zeComp0°01€1۸‏ 
یتم عمل eاامصه)‏ له » لیتم لأحقا اشتقاق الملف المتكون من CS + A5۲×‏ مته وليس من 


System.Web. U1. Page‏ مباشرة. 


Runtime 
Compiler System, Web. Ul.Page 


(Base Class for All *.„_aspx Classes) 


MyPage.aSpxX.CS 
(Partial Class Definition 
in Code-behind File) 


Generated Partial Class 
Based ûn MyPage,.aspx 


Autogenerated Assembly Hosted | MyPage.aspx 
Under aspnet_Wp.exe 


<html> 


<html> 


الصورة 22. /. دورة ترجمة صفحات .ASP.NE] J|‏ 


او مقو 
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System. Web. U1. Page Ãذأdll‎ .3 


تحتوي هذه الفتة على مجموعةه من الخصائص والفتات التى ستفيدك فى عملك» منها: 


الفتة الو صف 


11 ا1ca‏ امم التعامل مع متغيرات التطبيق وما يختص بالموقع 
٥اه‏ للتعامل مع الكاش الخاص بهذا الموقع 


Backاsت5SP]‏ لمعرفة هل الصفحة يتم عمل 1030 لها من جديد أم انه يتم عمل 
00ا لها بناء على عملية S16٣1‏ حدثت من الصفحة 


ع011 تحديد الصفحة الماستر » سنتعرف عليها لاحقا 


Http Rquest J| Request‏ . سنتعرف علیها في الدرس التالي 
Http Response Jı | Repo‏ سنتعرف علیها في الدرس التالي 
Server‏ الوصول إلى الدوال الخاصةه بالتعامل مع السيرفر ضمن 
HttpServerUtlility‏ 
0nاSess‏ التعامل مع ال 5655101 تستخدم لتخزين بعض القيم وسنتعرف 
E‏ 


Theme‏ لتحديد التيم - 2ا اعرف ترجمة له - الخاص دهذه الصفحهة 


الجدول 22. 1. أهم الفئات في مجال الأسماء Ne‏ ."eعاsئSy.‏ 


Request Jl g4 لJماعتلا‎ .1 . د‎ 


عملية ال أكئعuا۹ع٥۸‏ هى عملية ارسال بيانات إلى السيرفر لتنفين مهمة ما عليها » عملية 


ارسال البيانات يطلع عليها اسم ا185٩ .X۸.8‏ 


متال : بعد ادخال البيانات الشخصيه تقوم بالضغط على زر ) ارسال ( هذا الزر يقوم يمهمهة 


. Request 
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في العادة » يتم تعريف ال ۸٤]10١‏ وهي الصفحة التي يتم ارسال البيانات إليها » كما يتم تحديد 


اسلوب الارسال ا6۴ أو اكه التي شرحناها سابقاً وذلك في تعريف الفورم بالشكل التالي مثلا: 


<form name="forml" id="forml1l" action="Process.asp" method = "GET"> 


ik 
نفس النظام ايضاً » ولكن يتم تعريف الفورم بطريقة مختلفة قليلاً:‎ .١6 في‎ 
HTML ) ا‎ 


<form id=" forml" runat="server"> 


هذا يعني افتراضيا ان الصفحة التي سيعود فيها هي نفس الصفحة كما ان طريقة الارسال 


اللافتراضية هي .٥051‏ 


غير ان A5۴.۸٥۴‏ لا تتيح لك الوصول مباشرة إلى ا5 ٥1٩۸م[‏ K]]آ»‏ ولكنها تمنحڪ هذه 


الخاصية ضمن ۸)11 U1. Page.‏ .en.Nebاys‏ والتي تجد فیها الدوال والخصائص 


نوع متصفح المستخدم» وهي فثةه تحتوي على عدد كبير من 
المعلومات 


نوعية الارسال 5€ او Get‏ 


محتویات الفورم الذي تم ارساله للسيرفر في حاله ڪون 


الارسال أ0€ » حيث يقوم بقراءة محتويات ال ]۸لا مباشرة حتى 
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لو لم تكن من ضمن محتويات الفورم 


]s5ecurec0n/ ne10‏ لمعرفة ھل یتم تطبیق اتصال ما آمن ام لا 


RawUr l‏ معرفة ال ۸لا بدون اي اضافات 
ss‏ lءServerVar‏ الوصول والتعامل مع مجموعة متغيرات السيرفر 
RR eS‏ معرفة ۲2| العميل 
Nameا0st ser]‏ معرفة اسم المستضيف للعميل 


() 1 خMapPa‏ دالة تقوم بتحويل المسار المطلوب إلى مسار حقيقي على 
Sn‏ 


() 584۵5 حفظ محتويات ال طا على ملف على السيرفر 


الجدول 22. 2. أهم دوال و خصائص الفئة أ9 1€ R٥١)‏ 


و سنستعرض لبعض الامثلة عن استخدام أes‌egu‌R...‏ 
قراءة بیانات التی تم ارسالها فی ۴0۲۳ 
لو كنت تستخدم اسلوب أكه۴: 


Cf 


f1rstName = Request.Form ("txtF'1irstName") ; 


VB.NET ا‎ 


flirstName = Request.Form("txtLFl1rstName™) 


Cf 


f1rstName = Request. QueryString ["txtFirstName"]; 
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الباب الثانى و العشرون البروجة باستخدام ال غ‌e‌ASP.n‏ 


VB.NET 


fl1rstName = Request. QueryString ("txtFirstName™) 


و برغم انڪ تستطيع قراءتها مباشرة باستخدام ال 0| ڪکما شر حلا في أو ل الدروس » !لا انڪ 


ستحتاج لهذه الطريقة في عمليات آخرى اضافية. 


معرهة احصائيات المتصفح المرسل 


SLTING ThelnTg = We; 

SEEING LSAOL = GtTING.TFormat (TTS AOL? {OF DES", REGUESTE.BFOWSEFEF. AOD); 
SLEInNnG 1SActivex = SlLPFING. Format (TSUPOOEL ACLIvVEK? {OF BET, 

Request. Browser.ActiveXControls) ; 

SlCFING 1LSBeta = SlCFING Fort (FIS BOCA? {OF Dry, RedilesT Browser .BelS) j 
String iSJava = SlFING.FoOormat (TSUBPOFL Java AcGplets? {OF </bDPT", 
Request. Browser.JavaApplets) ; 

SLCTFINT LSCOOKRIES = SCF. FOEMATL (TO UPBOEL COOKIES OF BEIT, 

Request. Browser.Cookiles); 

SLLINTG LSVE = SCP. TFOEMOALE (SUEDE VBC (OF CEE 

Request. Browser. VBScript); 


Dim ThEeEINEG A8 SLIEING = 8T 

Dim LSAOL KS CCT ING = SUP INGLEOLMAL(F IS AOL? {UF CDF, REUUESTLEFOWSET.AOE) 
Dim ASACTITEx AS SCETING = SCEINGO.EOEMaAT (TSUBDOET ACGCITEK? (UF «Dr, 
Request. Browser.ActiveXControls) 

Dim LSBelta Ag String = SlLrFING.Format ("Is Beta? {0F <r", 

Request. Browser. Beta) 

Dim. TLSJava A SCETING = SCLING.FOrMAL ("SUPDOET Java AGGlelts? 10} DET”, 
Request. Browser.JavaApplets) 

Dit LSCOOKIES.3 SCFING = SC CINO.T OEM (FSUBDOETE COOKIES UOT re, 
Request. Browser.Cookiles) 


Response Jl 24 لJماعتلا‎ .2 .35 


العملية العكسية لعملية أكئعلا۸€Q»‏ حيث تمثل عملية نقل البيانات من السيرفر إلى العميل 
مرة آخری » حیث تشکل الناتج الدي سيتم ار ساله للمستخدم « و تحتوي على الخصائص والدوال 


التالية: 
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الباب الثانى و العشرون البروجة باستخدام ال ASP.net‏ 


الخاصية أو الدالة الوصضف 


كما في حالة ال أكئعلا۸Q‏ ولكن في العملية العكسية 


مسح كافة محتويات B0QY¥ JI‏ وHeadersJl‏ 


ارسال ما تم انجازه للعميل دون ايقاف عملية المعالجة “* مفيدة 
2 


الجدول 22. 3. أهم دوال و خصائص الفئة 59€ ۸9001 


متال على الكتابة باستخدام ٥ا‏ 1]اN:‏ 


RéSBONnSE.WEITE(TEUSINLIS LS  ATASCTIDT Codec); 
RESPONSE 


RESDOnNSE 
RESDONSE 
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اللاب التانى و العشرون البروجة باستخدام ال غ‌ASP.ne‏ 


ASP.net ٽlgدÎ‎ .4 


كما لاحظنا سابقاء فإن تعريف آي اداة من أدوات ۸5۲۴.۸6٤٤‏ یتم من خلال 11M)‏ مکتوب فی ×450.“ 
وفيما عدا ذلك فهى شديدة الشبه بالآدوات العادية فى تطبيقاتنا من ناحية المظهر وتعاملك معها 
كمبر مج » | انها تختلف في الأداء وما وراء الكود بشكل قطعي. 
وكذا الأمر بالنسبة للأحداث ايضا والتي تم عمل ضغط لها لتتناسب مع عالم الويب › ومع اي 
1٣ع‏ يتم نقل البيانات إلى السيرفر مباشرة. 
خlصuة AutoPostBack‏ 

تتيح لك هذه الخاصية النقل إلى السيرفر مباشرة مع اي تحديث فيها » تجد هذه الخاصية فى 
مربعات النص ×50 ×۲۴ وادوات الاختیار والتحدید Chee) Box & Radio But0۸s‏ والقوائم 


بانواعها ×80 اءأا و ×80 0" K0‏ » والقيمة الافتراضية لها هي ه١|كه!.‏ 


4. 1. الخصائص الأساسيۂ لذدوات الویب 
تشتق جميع أدوات الويب من الفثة 01.00۸1۲01 e". N e6.‏ ا5ys‏ والتي نجد لھا الخصائص 


والدوال التالية: 


الخاصية أو الدالة الوصف 


C05‏ تعيد جميع الآدوات الأبناء لهذه الأداة 


aS OLLI)‏ تعيد قيمة متنطقية بوجود أو عدم و جود آدوات داخل هذه الأآداة 
11 الاسم الموحد لكل اداة - لا يمكن تكراره- 
68 تعود بمتغير على الصفحة التى تحتوي هذه الاداة 
Parent‏ إلداة الحاضنة لهذه الأداة 


۷111٥‏ ظهور او اختفاء هذه الاداة 


الجدول 22. 4. أهم دوال و خصائص الفئة ۲01 C0۸1‏ 
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اللاب التانى و العشرون البروجة باستخدام ال غ‌ASP.ne‏ 


كما تقدم الفئة J]1.WNebControls.WNebCont]01‏ .emn.WNebا6ys‏ للأآدوات المشتقة 


الخاصة الو صف 


Back coo ٣‏ لون الخلفية 
۸ لون الحدو د 
Ee EL BorderStyle‏ 
عرض الحدو د 
Ena‏ تفعیيل أو عدم تفعیيل الأآداة 
S‏ ك1كك إل ككهاc‏ الخاص بال 5ع أك لهذه الأداة 
ا٣0‏ معلومات الخط من الحجم والاسم وخلافه لهنذه الاداة 
لون خط الكتابة 
e Height‏ 
العرض 
rab] "n de×‏ موقعها من التنقل باستخدا٥‏ ٥۵آ‏ 
0169ا في حالة وجود 115 للاداة 


الجدول 22. 5. آهم دوال وخصائص الفثة vNeb(٤C011 ١01‏ 
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الباب الثانى و العشرون البروجة باستخدام ASP.net J|‏ 


مال : استعراض اسماء جميع الأدوات في الفورم 


باستخدام ال ١0|)ع‌اأام€)‏ الناتج عن الخاصية ٣o" ۲0٥015S‏ اضافة للدالة 


H5 ل0Nاا0‎ 15S )(‏ لمعرفة وجود آدوات من عدمه » يمكنك كتابة الكود التالي: 


SEEING InformaLion = Ww, 
Lf (myPanel.HasControls () ) 
ا‎ 
foreach (Control c in PanelName.Controls) 
ا‎ 
1f (!object.ReferenceEquals (c.Get Type (), 
LCOOT (SVT NEB. UL. BIEL ETOLCORETOL)) 
أ‎ 
IHEOEMILLON += SEEING. FOAL (PFCOBEFOL Name: {OF Brit, 
C.TOSLEIROD 
TIAIGOIMALION. F2 EPI. TF oEmMaAE (TIDTt UF ora, CID), 
IAI OEMOLILOI F#= SCFEING.EFOEMAL ("CONEEOL VISIBDIG: {OF CBE, 
CL VLG TIDPLE Gy, 
THMEOEMALCTON SEEING. FOrmat (ViewState: {UF <br", 
C.EnableVviewState) ; 


ThformalLion tS PEDE ENE Sba. 


RESPONSE. WICE (LHEOEMAELOR 


VB.NET 


Dim IATOEMELIOonN A8 SLLING = 
IF myPanel. HasControls (0) Then 
For Each c As Control In PanelName.Controls 
If Not Object.ReferenceEquals (c. [GetTypel] (), 

Get Type (System.Web.UI.LiteralControl) ) Then 

IHTOEMILILO #=— SC FING-FOEMaAL (FCONEFEOL. Name: {OF Dre, 
CS LOGE) 

Tir OEMALLON #—= SETI EFOEMAL(TID: (OF Bez", CID) 

TMEOEMALLON F#= OE FING-T OCMC (FCORLTEOL VISIBLE: TOF Bit, 
C.Visi1ible) 

IirTOEMALLO F#= SEFO. FOrMaL (VIEWS LaALG? (OF OFT, 
C.EnableVviewState) 

TIHILOTMALIOG aS FEDERE SEET 

Response.Wite (Information) 


ENA IÎ 
NEL 
Eid II 
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اللاب الثانى و العشرون البروجة باستخدام ال غ‌ASP.ne‏ 


متال : انشاء آدوات وقت التصميم 


TextBox L1 = new TextBox (); 
LLLD & SCPINGOLEFOEMalE (TO VNOMICELT 
MYFPFANELA CORETEOLS AGO EL 


VB.NET 


Dim tl As New TextBox () 
EL LD: = SECFINLEOIMALC{( TOV RAMICEL™) 
mMyPaneL.CONELOLS.AQQA (EL) 


أقسام الآدوات فی A5S۲۴.۸٤۴٤‏ 
تنقسم الأدوات الموجودة في ا٥١.۸5۶‏ لعدة أنواع رئيسية: 


Simple controls 


الأدوات التي تتبع ۸5۶.١6‏ ولكنها من عناصر ا11۷ اساسا مثل مربعات النص ٦8×80×‏ والعنوان 


ا مھا وآزرار الأآمر 0۸5لا86 و خلافه. 
Rich controls‏ 


مجموعة من أدوات ۸5۴.١6‏ العادية ولكنها اكثر تشعبا وخصائص › من امثلتها اداة التقويم 


٣‏ endاCa‏ واداة عرض الشجرة 1۲8۴۷/16۷ والقوائم N۱6۸۷‏ و خلافه 
Data controls‏ 

هي ادوات تعتمد على الربط بقاعدة البيانات » من اشهر امثلتها. W٥4۷i|اG‏ 
Validation controls‏ 


ادوات التحقق » هى ادوات سيرفر ولكن يتم تنفيذها عند العميل» حيث يتم تطبيق محتويات 
ا8ل فيها لتنفين يعض عمليات التحقق. 


Login Controls 


محموعة من الادوات المتكاملة لتسجيل الدخول وخلافه. 
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Web part controls 


مجموعة ادوات مخصصة لاتاحة الفرصة لمستخدم موقعك للتحكم في لون وخصائص اجزاء 


الصفحه. 
هناك بالطبع 31M 0٣٣٥s‏ والتی تحدثنا عنھا سابقا. 
سنحاول ضمن الدروس القادمة التعرف على بعض هذه الأدوات الخاصة التي ستمر علينا للمرة 


الأو لى ما عدا ال ۷/18W‏ |6۲ والتیى سنؤجل الحديث عنها حتى قسم ال A5۲."‏ + قواعد البيانات. 


Master Pages .5 


لعلڪ تلاحظ في عدد ڪبير من المواقع ان جزءا ثابتا من الموقع لا يتم تغييره في ڪل 
الصفحات» حيث يبدو كجزء من الصفحهة وبيبتفاعل معها ولكنه يبدو مگررا کی كل الصفحات: 


في الواقع هدا الجزء ليس موجودا في كل الصفحات » لتتخيل ان الموقع به 100 صفحهةه و قمت 
بعمل نفس الجزء فى كل مرة » ثم رغبت في تغيير احد خصائصه » فستضطر للتعديل في ال 
100 صفحة كاملة. 


من هنا ظهر مبدا ال عك uںا٤٣|‏ فى ۸5۴ والذي كان يتيح لك عمل ع٥4 |١٣|‏ لصفحة بعينها فى اي 
جزء من صفحتك » ومع ا٥١.۸5۲‏ ظهرت لنا الكععة٣‏ ۲٣عأئة N‏ والتي تجعل من صفحة ما صفحة 


ر ئيسيهة لکل ال ص فحات. 


سنجرب هذا المبدأ سوية › قم باضافة ۴۳ )| N٥۷‏ واختر ۴28€ Master‏ بالشکل التالی: 
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اللاب الثانى و العشرون البروجة باستخداو ال ASP.net‏ 


Add New [tem - CMUsers 0 nt Yisual Shue OEM ebSites\ WebSite 


Yeual Studio installed templates 


Web Form Master Page Web User  AJAK Chent AJAX Client AJA Cirent AJAX Master 
۰ Kertrol Bzhêaviêr oral Library Page 


Browser File las 3 : 1 alobal HTML Page 
َ Report Ap plcaiir,, 


A ® A&A BF Û ® 


Report FRe:curce Fle Site Map in Fı SQL Serer Style Sheet 


8 ك ك 


سي س سر 


A Master Page for Web Applications 


Namie MasterFage.master 


|| Select master page 


الصورة 22. 6. اضافة ۴39€ M256۲‏ للمشروع. 
بعد انشاءك لها »اول ملا تلاحظه في صفحة الكود هو وجود العنصر الجديد التالي: 


ASP.NET 


<asp:ContentPlaceHolder id="ContentPlaceHolderl" runat="server"> 


</asp:ContentPlaceHolder> 


يمثل هذين الوسمين الصفحة التي سيتم عمل 38٥‏ 356۲ا لها » قم بوضع اكوادك المختلفة قبل 
و بعد هذه المنطقة » اما هذه المنطقة فسيتم عرض الصفحة الرئيسية فيها. 


ليس هذا فقط » اي آن كتابة الكود فوق وتحت الوسم لا يعنى انها ستظل فوق وتحت الصفحهة 
فقط . فى المتال التالى سنجعل الصفحة الرئيسية تظهر فى مريع صغير فقط وسط الصفحهة فيما 


ال 9 مربعات الاخرى تحتوي على بيانات ما » بالصورة التالية مثلا: 
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اللاب التانى و العشرون البروجة باستخدام ال غ‌e‌ASP.n‏ 


hii, i am here any ing 


.MasterPag€ Jı الصورة 22. 9. صفحة‎ 


الكود الخاص بهذه الصفحهة سيكون بالشكل التالي: 


ASP.NET 


@ Master Language="C#" AutoEventWireup="true" CodeFile="MasterPage.master. cs" 
Inherits="MasterPage" 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN'" 
"http: //www.w3.Org/TR/xhtml1/DTD/xhtml1-transitional . dtd"> 
<html xmlns="http: //www.w3.org/1999/xhtml "> 
<head id=" Head1" runat="server"> 
<title>Untitled Page</title> 
<asp:ContentPlaceHolder id="head" runat="server"> 
</asp:ContentPlaceHolder> 
</head> 
<body> 
<form id=" form2" runat="server"> 
<div> 
<center> 
<table border="1" width=80%> 
<tr> 
<td>hiiii, i am here</td> 
<td><img src="http://vb4arab. com/vb/attachments/logo. jpg" /></td> 


<td>any thing</td> 
</tr> 
<tr> 


<td>hii again</td> 
<td> 
<asp :ContentPlaceHolder id="ContentPlaceHolderl" runat="server"> 
</asp:ContentPlaceHolder> 
</td> 
<td><input type="button" /></td> 
</tr> 
<tr> 
<td colspan=2>large TD :)</td> 
<td>bye</td> 
</tr> 
</table> 
</center> 
</div> 
</form> 
</body> 
</html> 


604 


اللاب التانى و العشرون البروجة باستخدام ال غ‌ASP.ne‏ 


وطبعا يیمکن تصمیيمھها من خلال ال Desig ^€F۲‏ وليس من الكود فقط › بعد الانتهاء من التصميم قم 
بانشاء صفحة جديدة » وفى شاشة طلب ۴38٥‏ 356۲ قم بتحديدها له بالشكل التالى: 


Î Add New Item - CAUzers\Ahmed\Documents\Vîsual Studio 2008\WebSites\WebSiteT\ 
Tern plates: 
| Veal Studia installed templates 
چ إت لا ف ف ك‎ 


| Web Form Master Page Web User AJAX Chien AJAX Chientî AJAX Cient AJAX Master AJAX Web AJAX -enab... 
Lontrall Behavior kontrol Library Faqe Farr WEF Service 


3 ® 3 4 SM 8 


| | Brewer Filê اقا ةا وا‎ Dataset ERêÊ اخاةات‎ HTML Pagê JSempt Filê 
Dragrami FEeport Harmdler Ap plicakl,. 


Resouree Fil 1 Skin Filê SL Serê, Sle Sheet Tat File 


Dafab azê 


rm E ey 


form for Web Applications‏ 1 ھ 


| Mame Defaults pk 


| Language: lV euai 2 


الصورة 22. 10. اعداد الصفحة لتكون تلقانيا .Mast€rPa9€‏ 
لاحقا سيطلب منك تحديدها فى شاشة اخرى » والآن مع اي صفحة ترغب في حصولها على نفس 
الشكل ستقوم باعطاءها نفس القيمة » حتى لو كانت صفحة قديمة يمكنك تعديل الخاصية التالي 


Pag٤€ فى:‎ 


<$ Fags Languagea=" Cf" MasterPageFile="~/MasterPage master "f AutoEventRireup="true" Code Fi 


ومراعاة وجود هذا الوسم تحديدا: 


ASP.NET ) 


<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1l" 
Runat="Server'"></asp :Content> 


لکن لا تنس ان لا تحتوي على تکرارات متل ال "٤3۵‏ ووسم ۸۲٣‏ 
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الباب الثانى و العشرون البروجةۃ باستخداg ASP.net JI‏ 


Sitemap 2g Jolعتلl‎ .6 


من خلال تعاملڪ مع ڪائن ال م3 5|6 والتي تتيح لڪ تعريف محتويات موقعڪ 


وترتيبها » تستطيع لاحقا تشكيل قوائم وعرض شجري لصفحات موقعك لنبدء اولا باضافة 


site m٧‏ بالشکل التالی: 


Add New Rem - CMJzergAhmed\ Document sual Studia 2008 Veblen WebSite 
Templates: 
Visual Studio installed ternplates 


ب ألا فا ف ك 848 ل0 


Web Fam Master Fage Web User AAR Client AJAX Client AA Client AJAX Master AlAR Web AJA =ena Bra 
Control Behaviar Control Library Page Fai WCF Serie 


4 3 S38 B8 AM a 


Browser File las 1 Dataset DerimNIC Global HTML Fage JScript File 
Diagram = Handler Applica. 


E 3 Û ® 


Eeport wuree Fila Skin File SL Serwer Style Sheet Text Fil 
Wizard Databiazê 


ك 


a ۴ Eat KEI F " 


A filê êd to create a 3iê map 
Name: Web.stemap 


Language: | Yea] & 


الصورة 22. 11. اضافة .Sit eM‏ 
ستجد الكود التالي افتراضيا: 


<?xml version="1.0" encoding="utf—8'" ?> 
<siteMap xmlns="http: //schemas.microsoft . com/AspNet /SiteMap-File—-1.0" > 
<siteMapNode url="" title="" description='"""> 


<siteMapNode url="" title="" description="" /> 
<siteMapNode url="" title="" description="" /> 
</siteMapNode> 
</siteMap> 


الآن مهمتنا لتعريف هذه ال N0١٥١‏ » لنفترض متلا صفحة البداية وتحتها صفحتين مختلفتين: 
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اللاب الثانى و العشرون البروجة باستخدام ال ASP.net‏ 


<?xml version="1.0" encoding="utf—-8" ?> 
<siteMap xmlns="http: //schemas.microsoft . com/AspNet /SiteMap-File—-1.0" > 
<siteMapNode url="Default1.aspx" tit1e="îzفصn‎ ãةيlدılJl"‎ description='"'""> 
<siteMapNode url="Default2.aspx" tiغ1e="izفص‎ ويوجولنl الياهوو‎ !" 


description="'" /> 
<siteMapNode url="Default3.aspx'" خti1iغ1مe="iحفص المنتدى لوجو‎ " 
description="'" /> 
</siteMapNode> 
</siteMap> 


اللآن سنحاول الاستفادة من هذه المعلومات » سننتقل إلى ال N351€6۲۴38٥‏ الخاصة بنا وسنقوم 


باضافة N6٣‏ و تحدید ال ۲٤€‏ 02501 لھا ليكون هذا ال طMa€sit‏ 


| Auto Format... 


Lhoose Data Source: | (None) . 


LE | Views | Static 
agah | Edît Menu tems... 
1a Lonvert to Dynamıcltem I emplate 
| Lonvwert to Statıcltem Template 


| Edit Templates 


الصورة 2. 12. تحدید مصدر البيانات. 


في الخطوة التالية سيطلب منك تحديد نوع ال ۲٣€‏ 1اa]850ط0‏ » اختر Site "2٧‏ 
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اللاب التانى و العشرون البروجة باستخدام ال غ‌e‌ASP.n‏ 


Data Source Configuration Wizard a arc o 


Choose a Data Source Type 


Where will thre application gef data from? 


E | 


Site Map AML File 


Connect to the site navigation tree for this application [requires a valid sitermap file at the application root]. 


Specify an ID for the data source: 
Sitellap DataSource 


الصورة 22. 13. اختيار ال 6 13ع]9 كمصدر للبيانات. 


الآن » جرب تشخيل موقعك والدذي سيكون بالشكل التالى: 


| صقحة لوجو الياهوى « صقحة اليداية 


صقحة لوجى المنتدى 


Site MapPath 
أداة اخرى تتبع نفس المجموعة › مهمتها تحديد المكان لك بالشكل التالي مثلا:‎ 


Root Node x< Parent Node <> Gurrent Node 


قم بوضعها فى ال ١356۲386‏ » وستعمل مع كامل صفحاتك بصورة طبيعية 


Validation Controls jaحتll‎ تIaدأ‎ . 7 


هي مجموعة من ادوات التحقق من المدخلات يعمل اغلبها جهة العميل علأ؟S‏ ا١eااC,‏ 


وتحتوي على الأدوات التالية: 
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CompareValidator - 


ارف المدغلات گی هة نمدخلات اخری : تقد متلا کے اة أعادة تأكيد كلهة المرور ٠‏ رنظ 


هذه الآداة كافي لتطبيق هذا التحقق 

RangeValidator - 

أكد من ان المدخلات تقع ضمن نطاق معين يتم تحديده 
RequiredFieldValidator -‏ 

للتأكد من أن المستخدم قام بادخال بيانات. 

RegularExpressionValidator - 


يمکنڪ تحديد نوع من التحقق بناء على ٤۴× ۲٤5510۸‏ اإaاRequ‏ تفيدك متلا فى حالة 


التحقق من صحة موقع آو بريد الكتروني او رقم هاتف › لمعرفة المزيد عن Reqular Jı‏ 


۴×5 يمكتنك مراجعة هذاالدرس - عربى - : 


http://www.arabteam2000-forum.com/index.php?showtopic=77787 
ايضاً يمكنك الاستفادة من هذين الموقعين لاستخراج اي 5510۸٥۲×٤۲هالاعه۸R ترغب به:‎ 


http://regexlib.com/DisplayPatterns.aspX 
http://www.regular-expressions.Info/ 


CustomValidator -=-‏ 
تتیح لڪ بناء اجراءات التحققى الخاصة ك 


ValidationSummary -=- 
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تعرض موجز عمليات التحقق التي تمت في هذا الفورم. 

تحتوي هذه المجموعه على الخصائص التالية: 
Cont r01 1r 0a1 1da te‏ : أداة الادخال المطلوب التحقق منها. 
2¥ ]ام15 : العرض في حالة حدوث الخطاً. 
ErrorMessaGge‏ : رسا الخطاً. 
"ore 10٣‏ : لون رسالة الخطاً. 


اللآن لتجربه هذه المحموعهةه » سنقوم يتصميم فورم تسجيل بيانات بسيطه » تحتوي قل الاسم › 


ورقم المرور وتآكيد كلمة المرور › والبريد الالكتروني والعمر . 
-الاسم ا يمکن ان يکون ا : RequiredFieldValidator‏ 

-كلمة المرور وتأكيدها ¥ بد ان يكونوا منطبقين: 30۲ Compare\V3a|id‏ 
-الايميل ¥ بد اù RegularExpressionValidator : Îؤzuzص jas‏ 
-العمر ¥ بد أن يكون بين 10 و 50 : RangeValidator‏ 

-وفي النهايةه سنعرض نتائج التحقق جميعها... 


قم بتصميم الفورم » وضع كل اداة بجانب الحقل الخاص بها ليكون الشكل التالي: 
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Name: 


YOU tS ElEtET Name 


Age: 
Age must be between 10 and 50Û 


Password 


Retype Password 


The passwords must be the same 


E-mail 


valid email address 
0 7 | 


SUMiMETY: 


» Error message ]. 
e Error message 2 


الصورة 22. 14. محتويات الصفحة و عرض الأخطاء. 


والکود: 
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ASP.NET ر‎ 


<%@ Page Language="C#" AutoEventWireup="true" CodeFile="Default4.aspx. cs" 
Inherits="Default4" $< 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http: //www.w3.Org/TR/xhtml1/DTD/xhtml1-transitional. dtd'"> 
<html xmlns="http: //www.w3.org/1999/xhtml "> 
<head id=" Head1" runat="server"> 
<title>Untitled Page</title> 
</head> 
<body> 
<form id=" forml" runat="server"> 
<div> Name:<br /> 
&nbsp; <asp: TextBox ID="TextBox1l1" runat="server"></asp: Text BOox> 
<asp : RequiredFieldValidator 1ID="RequiredFieldValidatorl" runat="server" 
ControlToValidate='"TextBOxl1l" ErrorMessage="you must eneter 
Name'"></asp : RequiredFieldValidator><br /><br /> 
Age:<br /> 
<asp : TextBox ID="TextBox2" runat="server'"></asp : TextBoOox> 
<asp : RangeValidator ID="RangeValidatorl" runat="server" 
ControlToValidate='"TextBOx2" ErrorMessage="Age must be between 10 


and 50" 
MaximumValue='" 50" MinimumValue="10'"></asp : RangeValidator> 
<br /><br /> 
Password:<br /> 
<asp : TextBox ID="TextBox3" runat="server"></asp : TextBox> 
<br /><br /> 
Retype Password:<br /> 
<asp : TextBox ID="TextBox4" runat="server"></asp: TextBox> 
<asp :CompareValidator ID='"CompareValidatorl" runat="server" 
ControlToCompare="TextBOx<3" ControlToValidate="TextBOx4 " 
ErrorMessage="The passwords must be the 
same'"></asp : CompareValidator><br /><br /> 
E-mail:<br /> 
&nbsp; <asp: TextBox ID="TextBox5" runat='"server"></asp : Text Box> 
<asp : RegularExpressionValidator ID="RegularExpressionValidatorl" 
runat="server" 
ControlToValidate='"TextBOxŠ5" ErrorMessage="invalid email address" 
ValidationExpression="^ ( (?&gt; [a-zA-Z\d!#$%&amp; '*+\-— 
/=?^ `{|}~]+\x20*| quot; ((?=[\x01-\x7£]) [^&equot;\\]/\\ [\x01- 
\x7F] ) *squot; \x20*) *(?&Elt;angleégt; &lt;))?((?!1\.) (?&gt;\. 2? [a-zA- 
Z\d!#$t&amp; '*+\|-/=?^ ° {|}~]+)+| &quot; ((?=[\x01-\x7f]) [^*&quot; \\] /\\ [\x01- 
\x7F] ) *squot;)@ (((?1-) [a-zA-Z\d\-]+(?&1lt; !—-)\.) +[a-zA- 
Z21{2,}1\[(((?(?&1t;!\[)\.) (25[0-5]/2[0-4]\d/ [01]?\d?\d)) {4} | [a~zA-Z\d\-]* [a-zA- 
Z\d]: ((?=[\x01-\x7f£1])[^\\\[\111/\\[\x01- 
\x7F])+)\]) (? (angle) &gt; ) $"></asp : RegularExpressionValidator> 
<br /><br /> 
<asp : Button ID="Buttonl" runat="server" Text='"Go On" /><br /><br /> 
<Summery:r /> 
<asp : ValidationSummary ID="ValidationSummary1" runat="server" /> 
</div> 
</form> 
</body> 
</html> 
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غا قمت بتغيير ٤٤۲۲0۲1٥55298‏ لکل منھم « وقمت بتحدıد Control ToVal1date J|‏ 


لكل واحدة فيهم. 
ال Expressİ0۸‏ arاRegu‏ اللازم لعملية الايميل لو لم تكن قد راجعت بعض الدروس السابقة هو: 


E E EE ONE E O AD OR 
NRIENJS AAU FET UMRONTLES TE ORENCLTCSA\TAEST OOI E 

EET ES CECE O PN OO E I NTO 
ENS ENS NE NEC SD CE ONG N NS N CE O EEC 
ANS IOS OEE ROLES ETE LDL ENROL ETE AINA ODOT eT 


وبالنسبة للمقارنة u‏ فهناك خاصية a۲€مP"‏ 00ا ا0تr0اntىCc‏ اضافة لخاصية 


ee 


gو‎ MinimumValue صئl؛صخè+‎ Range J| „ag «ControlToValidate 


.Max1imumValue 


والآن جرب ارتكاب الاخطاء خطآً وراء الآخر » وشاهد النتيجة: 


613 


اللاب الثانى و العشرون البروجة باستخدام ال غ‌e‌ASP.n‏ 


Name: 


you must eneter Name 


A ge: 
100 


Password: 
12 


Retype Password: 


1 The passwords must be the same 


Aa. imvalid email adûress 


» YOU tmust eneter Name 
» The passwords must be the same 


e» valid email address 
. 510۳8٣¥ الصورة 22. 15. عرض الأخطاء في الأداة‎ 
يمكنك معرفة المزيد عن كا٣۲3 ام۷ من هنا:‎ - 


رابط گے 
http://msdn.microsoft.com/en-us/library/eOs9t4ck.aspX‏ 
- كما ترى فالتصاميم التي نقوم بها حتى اللحظة بدائيهة جدا » هناك طر بقين لتحسين تصاميمڪ› 


الحل القديم يعتمد على استخدام لل C858‏ > و هذه يمكنك معرفة المزيد عنها هناء 


رابط گے 


http://www.w3.org/Style/CSS/learnindg 
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الحل الجديد ابتداء من ۸5۲.١٤٤‏ هو استخدام ما يعرف باسم ۳6€5ع1۸» يمكنك البدء فيها من هنا 


http://msdn.microsoft.com/en-us/library/ykzx33wh.aspxX 


State Management .8 


لعلڪ ومن خلال تجاربڪ في تطوير ١‏ ٥|ه»ءااممA‏ مهs)tع(0‏ تدرك انڪ وقت تعريفڪ 
لمتغير ما فسيظل هذا المتغير محتفظا بقيمته حتى انهاء البرنامج أو الخروج خارج ال 50٥€‏ 
الخاص بهذا المتغير › إلا آن هذا الوضع ا في ۸5۴۶.۸٥61‏ حيث ستضيع قيم المتغيرات مع 
آو ل تعديل »› لذا ڪان من اللازم عليڪ آن تقوم بتخزين متغيراتڪ وقيم بحيث يمکٽنڪ 
استرجاعها » وهو ما سنتعرف على بعض تقنياته في هذا الدرس. 
يمكنك تخزين القيم بواحدة من ستة طرق اساسية: 


„. View state - 


. Control state 


. Application-Level Variable - 
„ Cache - 


„ Session = 


. Cookies 


Control State .1 .8‏ 
هي الطريقة الآسهل للاحتفاظ بالبيانات» كل ما عليك هو تخيير القيمة EnableViewState‏ 
لآي أداة حتى ولو للصفحة ككل » في هذه الحالة القيم الموجودة في أي من أدواتڪ لن تتأثر 


و ستظل محتفظة بيقيمتها حتى اغلاق الصفحه. 
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لو فتحت ال ا۳1۷ الناتج عن المتصفح لصفحة تستخدم عاها؟ Wه|الا‏ ستجد الجزء التالي حيث 


يحتفظ ال W۷5†3€ع|/‏ بقيمته. 


ASP.NET 
<input type="hidden" name=" VIEWSTATE" id=" VIEWSTATE'" 


value=" /wEPDwUKMTIxNDIyOTMOMg9kFgICAw9kFgICAQ8PFgIeBFRleHOFBWFobWVkZGRkCq8SFGqyXB 
POpBDpvdnycvMS5zSQE='" /> 


خطاً شانع 


آحناتا ما تحتاج لإن تقوم يملء محتويات قائمة لدیک فى حدث الل 0۲۳٣_1040‏ » اغلب 


المطورين تستخدم الاأسلوب التالي: 


LLSLEEORL. „Add ("Ahmed™”) ; 
LILSEEO lL. . Add ("Mohammed") ; 
LMLSLBORL. AOC ATTY, 


VB.NET 


LLSLEBORL AOC (TAHM) 
LI SEBO. .Add ("Mohammed”™ }) 
LL LBOR Ls AOC TAIT") 


في الواقع هذه الطريقة متعبة جدا» خصوصا لو كان ملء القائمة يتم من خلال قاعدة البيانات!!! 
الحل البديل» هو الاعتماد على خاصية e‏ اaاeV1ew5Stاnab£.‏ واستخدام الخاصية 


Back‏ ا SPs‏ !] للتأكد من أننا نقوم بملأآها في المرة الأولى فقط بالشكل التالي: 


TE (1! ISPOSLEBACK) 

أ 
LISstBoOxl. Items.Add ("Ahmed") ;‏ 
LLIStBOX1I. Items .Add ("Mohammed™) ;‏ 
LL SEBOLLILILESMSSACOCFALT TY;‏ 


VB.NET 


If Not IsPostBack Then 
LIstBoxl. Items.Add ("Ahmed"”"™ ) 
LIStBoOoxl. Items.Add ("Mohammed”™ ) 
LULSTEBOXL. LILCEMS.AIGO( TALI”) 

SIN LL 
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ViewState .2 .8 


طريقة آخرى تعتمد على نفس المفهوم ولكن تعدا هن الأدوات. حي متك ملا كتاة 


الكود التالي لتخزين قيمة ما بنفس الطريقة: 


CF 


ViewState ["CustomViewStateltem"] = "Ahmed"; 


VB.NET 


ViewState ("CustomViewStateltem") = "Ahmed" 


و لاستعادته: 


CF 


Labell1.Text = (string)ViewState["CustomViewStateltem"]; 


VB.NET 


Labell1.Text = DirectCast (VlewState ("CustomViewStateltem"), String) 


Session .3 .8 


طريقة سهلة التعامل جداء وبنفس طريقة 01۷5121٥‏ السابقة مع اختلاف التكنيك فقط› 


للكتابة: 
CF‏ 


Sesslon ["mySession"] = "Ahmed"; 


VB.NET 


Sesslon ("mySession") = "Ahmed" 


والاستعادة: 


CF 


SLING hame = (GEE INCO) SESSION MISESSIOR TI; 
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VB.NET ا‎ 


Dim. name AS SÎFING = Direc CaSlL(SeSS8LOn("mMYyYSeSS1on"); SLEEFINS) 


يمكنك عمل ۸٥۳07۷٥‏ لأي قيمة مخزنة فى الكائن 585510۸ بالشكل التالى: 


CH 


Sesslon. Remove ["mySession"]; 


VB.NET 


Sesslon. Remove ("mySession™”) 


كما أن هناك خاصية 11۳٥01‏ والتى تحدد فترة احتفاظ ال 565510۸ بقيمته بالدقائق › 


وافتراضيا هى 20 دقيقة: 


ڪو د C‏ 


# 
Session. Timeout = 5; 


VB.NET 


Cookies .4.8‏ 
طريقة آخرى من وسائل الاحتفاظ بالقيم ولكن عند جهاز العميل» حيث يتم الاحتفاظ بهذه القيم 
في ملفات نصية ( في اغلب الاحيان ) ولكن ينبغي مراعاة ان يكون متصفح العميل يسمح بمثل هذه 
العملية » وهي الطريقة الأكثر شهرة في الاحتفاظ بمعلومات الدخول والتسجيل في المواقع 

المختلفة وهي مشتقة من الفئة System.Web. HtTtp6COOK1®€‏ 


سنجرب الآن مثالا على الكوكيز ›» حيث سنقوم بتسجيل اختيار المستخدم من الألوان - 
اللون الاخضر أو الآأحمر متلا ”> ومع كل تشغيل للموقع في حالة وجود ڪكوكيز يتم استخدام 
اللون المفضل › وإلا يتم اللجوء للون الافتراضي وهو الأصفر مثلا. 


سنقوم برسم الصفحة اولا باللون الافتراضي الأصفر: 
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ERbSp: tp 
taSpD: FaANEL IU" "FARNELL Eüûnra t= "geTver" Heigit="l3IpK”" WIL" "AbD" Sack OLO" Ie llow "o 
للون | 1 لشظلم ف‎ 0 Lalli | 1 2 E £ 1 


ZOE f2 

taap : Radi qEutton ID="RadicBüottonl®" rûanat="server" دای چچ‎ e 
OE Ja 

aD: KadlioBurctan IC™ "RedATABUET AFL 


L1 i 


FURET=aE FET 
oGncheckedchanged="RadicButtana CheckedChanged" Text=™ axil” Jy 
DBE 4 

DE #2 

+asp i Buttên ID="BûEEER1" FiRatatgagryer™ TTT TITET e 


2 SPB: FANE 


E Dezîian vêew îš cut of syntê with Sourgê vitw. Cligk hereto synchronize vis. 


ASP !PanelzFanel1 


E>  — Lm e | e | So | SSS Û 


الصورة 22. 160. المظهر العام للصفحة. 
الكود الخاص بهاء 


ASP.NET 


<asp:Panel ID="Panell" runat="server" Height="134px" Width="446px" 
BackColor=" Yel low'"> 

</ عإط>: المطلوب اللون باختيار قم 

<br /> 

<asp : RadioButton ID="RadioButton1l" runat="server" [ext=" رضèخëخÎ‎ " 
GroupName="colors'" /> 

<br /> 

<asp: RadioButton I1D="RadioButton2" runat="server" 

oncheckedchanged="RadioButton2_ CheckedChanged" Text=" an> " 

GroupName="colors'"/> 

<br /> 

<br /> 

<asp : Button 1ID="Buttonl" runat="server" [ext=" jıدطÜi"‎ 
onclick="Button1 Clickl" /> 
</asp:Panel> 


والآن » سنقوم بانشاء كوكيز نخزن فيه اللون المختار حاليا بالشكل التالي فى حدث الضغط على 


زر ( تطبيق ) » وسنعطي هذا الكوكيز تاريخا للانتهاء: 
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GETING, COLO; 
Lf (RadioButtonl.Checked) 
{ 
color = "Green"; 
Panell1.BackColor = System.Drawing.Color.Green; 
} 
else 1f (RadioButton2.Checked) 
{ 
COLO = REIT; 
Pannell .BAaCKCOLOE = System. DEAWING:COLOE.REG; 
} 


E [S6 


COLO = Fw. 
HttpCookie Cookle = new HttpCookilie ("myColor", color); 
Cookie.Expires = DateTime.Parse ("01/01/2009"); 
Response.Cookilies.Add (Cookle); 


DIM COLOE AS SLrEING 
If RadioButtonl.Checked Then 

color = "Green" 

Panell1l.BackColor = System.Drawing.Color. Green 
Elself RadilioButton2.Checked Then 

COloE =5 Red" 

Panell1.BackColor = System.Drawing.Color. Red 


Dim Cookle As New HttpCookle ("myColor", color) 
COORLE ERGE. = DELETING. POrSE (TOL OL OU) 
Response.Cookles.Add (Cookie) 


والآن في حدث F'OorM_1LoaQd J|‏ للتشغيل» سنقوم بقراءة الكو كيز» وفى حالة وجود "۷0010٣‏ 


فسيتم معرهفة قيمته: 


LF (Reqglesl.COoOOKLIeS [ MICOLGE"] 1= BULL) 
{ 


string color = Request.Cookles["myColor"|].Value; 


LF (color == "Green") 

Panell1.BackColor = System.Drawing.Color.Green; 
else 1f (color == "Red'") 

Pannell. BackColor = System.DEawing. Color. Red; 
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lf Request.Cookles ("myColor") IsNot Nothing Then 
DIm  COoOLOF As SLEING = Requéest.Cookles ("MyCOLOE") .Value 
If color = "Green" Then 


Panell1l.BackColor = System.Drawing.Color. Green 
Elself color = "Red" Then 
Panell.BackColor = System: Drawing. Color . Red 
End LE 
EM TF 


Application .5 .8 


طريقة آخرى مشتقة من ٣۸S2‏ 11cat10مpAppاtاH.‏ ولکن من خلالها لا يتم تخزين 
البيانات لعميل واحد » بل يتم تخزين بيانات يمكن ان تصل لجميع العملاء ›» ابسط متال لها هو عدد 
الزوار والذي ينبغي ان يكون مؤثرا عند جميع العملاء وليس عميل واحد فقط. 

تحتوي هذه الفتة على الدوال والخصائص التالية: 


الخاصية أو الدالة الو صف 


استعراض جميع العناصر الموجودة 


السماح او عدم السماح بتعديل المجموعه 


الجدول 22. 6. أهم دوال و خصائص الفûئة‏ teۓHttpApplicationSta‏ 


يمكنك اضافة عتنصر جديد 101۸ ca]‏ 1 1مم جديد بالشكل التالي: 
CH‏ 


ADGLLCQALCILOTNIT VISIO] = ;أ‎ 
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VB.NET 


ASGLTEALION (TV L TL = 


ويمكن استعادتها في مربع عنوان متلا: 


CF 


labelVISTOLrE. Text =. (SÎFINGIABDOLICALCIOR[TVISICOES" |; 


VB.NET 


labélVi1STtOF. TEX = DIFECLCAST (Applicat Ion (TVISILOFS"); SEEING) 


APOLLOALCTIODRLT VL TILCOE] = (OIREIACULIICALIORLTVLSICOTE I) 


VB.NET 


ABDLLCAETIOR (TUL ILCOETT 2 GIDNTASDDLICALILON (O TVISILCOE) 


لاتنس ان محتوياث ال 1٥0٣‏ اهaء11مم‏ قد لا تكون نص فقط ٠‏ بل قد تكون مصفوفة ون الفنات 


Cache .6 .8 


تقنية آخرى مختصة بالتطبيق عند جميع آجهزة العملاء » ولكن يمكنك تحديد فترة معينة 
فقط لها » لانشاءها نستخدم الأمر التالى مثلا: 


CH 


CORNTEEXT. CACHE MICachET™| = FRAIL; MY TILSL Cache"; 


VB.NET 


Context. Cache ( TmMyCache") = hilly; MY LIrsL Cache" 
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CF 


string myCache = (string)Context.Cache ["myCache"]; 


VB.NET 


Dim myCachée As SLrFInNnGg 3= DirecltCast (Context. Cache ("myCache™); SLEING) 


آخر جزئية لدينا في موضوع التخزين هي استخدام ملف ×ه5ه.|6|003 لتخزين متغيرات 


أ0ا ودوال يمكن الوصول إليها من اي صفحة › قم باضافة عنصر جديد وقم باختيارها بالشكل 


Templates 
| Visual Shudis installed tern plates 


ف ف هك L1‏ 


Web Fomm Master Page Web llser AJAX Llient AJAX Client AJAX Client AJAX Master 
Behawiar Control Library 


ب 51 2 3 2 


Browser File lass Crystal 


BB & 


Resource File Site Map Skin Fi Style Sheet Tet File 


BB & # 


سي سی ی 


A class for handling Web Application events 


Parve: lobal.asa 


Lamngliağê: ھن‎ 3 1 [_1Place code in separate file 
۰ [ [Select master page 


623 
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الصورة 22. 17. اضافة ملف ×5aه.|اaطbهاG.‏ 
تد أا فتك هة الضقحة : ستجك ها افتراض الا كراد اتان 


using System; 
namespace myWebSi1ite 
{ 
püUbLIC GLASS GlIODOL : SVSToEMm. Web .RECBApDBLIcGaE Lon 
{ 
protected void Applicatlion_Start (object sender, EventArgs e) 
{ 


} 


protected void Application_End (object sender, EventArgs e) 
| 


} 


protected void Application_Error (object sender, EventArgs e) 


{ 


} 


protected vold Sessilon_Start (object sender, EventArgs e) 


{ 
ا 


protected vold Session_End(object sender, EventArgs e) 


{ 
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VB.NET 


@ Application Language="VB" 
<script runat="server"> 
Sub Applicatlon_Start (ByVal sender As Object, ByVal e As EventArgs) 
" Code Eha CUNS oO aPBLLCaTIOoON SLCAFEUD 
ENO Sub 
Sub Applicatlon_End (ByVal sender As Object, ByVal e As EventArgs) 
'" Code THaL CUnNnS On Ao LICGLCIion SBültdown 
ENO Sub 
Sub Applicatlon_Error (ByVal sender As Object, ByVal e As EventArgs) 
' Code that runs when an unhandled error occurs 
ENC Sub 
Sub Sessilion_Start (ByVal sender As Object, ByVal e As EventArgs) 
' Code that runs when a new session 1s started 
ERC. SUD 
Sub Sesslion_End (ByVal sender As Object, ByVal e As EventArgs) 
' Code that runs when a session ends. 
Note: The Session_End event is raised only when the sessionstate mode 
' 18 € 0 PEC 1n the Web.config TILE; IF sesSslon mode 1S5: Sel Lo 
SLALEDSEEVEE 
' or SQLServer, the event is not raised. 
ENC Sub 
TECTEIGES 


و كما لاحظت > تحوي هذه الصفحة على تعريفات لدوال رئيسيةه خاصه بالتعامل مع كافة انواع ال 
State Management‏ اضافة لحالة حدوث الأ٘خطاء ٣0٣اr٤ion_EاicaامApp‏ وغیرھا من 
دوال تفيد في ادارة كامل صفحات المشروع > و يمكنك الاستفادة مٽنها في جميع استخداماتڪ 


لعناصر أ١‏ €"۳ع2g Ma"‏ عاtهSt‏ المختلفة التى تعرفنا عليها فى هذا الدرس. 


ASP.net . 9‏ و قواعد السانات 


سنأخن الآن جولة سريعة في عالم قواعد البيانات مع ا٥١.۸5۴‏ › في الواقع لن تحتاج لأكثر 
من المعلومات التی تعلمتها فی دروس ا۸00.1۴ . والتى سنطبقها هنا. 
لذا سنقو م بداية بعمل موقع دسیط يقوم دةط بقراءة أسماء من قاعده البيانات و طباعتها 
للمستخدم » سنستخدم قاعدة بيانات تحتوي مبدئیا على اسم المتنتج وسعره » فقط هذا هو الكود 


625 


الباب الثانى و العشرون البروجةۃ باستخدام ASP.net J|‏ 


SqlConnection cn = new SqlConnection (@"Data Source=AHMED-PC\SQLEXPRESS; Initial 
Catalog=lItems; Integrated Securlty=True;Pooling=False"); 
cn. Open(); 
SGLCoOomMmMAaNad .CMQ = Rew SGLCOomanda{"SelLleGt * TEOM Items", Ch; 
SqlDataReader dr = cmd.ExecuteReader (); 
while (dr.Read() ) 
{ 

RéSSoOnSE.WEILE (TXBs>EToOnE Color=blue> TLem Number; </TonLS/BDST 3 
UP COLCTOACOAOLSTOSECEIRNGO FEF TED oT); 

RéSponSsé.WEIte ("<b><font Color=blue> ITtem Name: <Jfonts>s</b>™ + 
CESCOELCSEEINGOL FE TET); 

RéSDOonS6.WELTEE(TEBDSCTONE COloOT=BIUE> ITEM PEICEG? SVTONLSC BST 7 
CE. GOLINE ATOSEEINGO, FE TE, 


} 


VB.NET 


Dim cn As New SqlConnection ("Data Source=AHMED-PC\SQLEXPRESS; Initial 
Catalog=IlItems; Integrated Securilty=True;Pooling=False™") 
cn. Open () 
Dim cmd As New SqlCommand ("select * from Items", cn) 
Dim dr As SqlDataReader = cmd. ExecuteReader () 
While dr.Read () 

RêSDOnNnS6:WEITLê (TED SCToONE GOloOE=BIe>: TLE NüUMGErE: </ToNnltS>c DST 
CE. CELINA O FP ETOSTEING(] FF TTT) 

RéSGOnSE. Write ("<BDS<TONRE COLoOFEBDIDES TEémM Name: </ol> bs" + 
CECE SEEIDNGOL), 4 EDET) 

RESPONSE WELLE (ADS CET ONE COLlOF=BIUESTLEGM FECES: S/T ONC DS" ¢ 
AEF. COELIAC TOSTEEINGO) FF TENT) 
End While 


الناتح: 
کک Item Number: Î‏ 


Item Name: Car Games 
Item Price: 5) 


الصورة 22. 18. نتائج تنفيذ الشفرة. ‏ ِ i n‏ 

اللآن سنجمل عملية العرض قليلاء. سنستخدم يعض 10 Item Price:‏ 
ا ر E‏ ا و و 3 Item Number:‏ 
سنضيف بعض الصور في مجلد ك۵8€ ۳| في نفس مسار Item Name: Apple‏ 


Item Price: 15 

البرنامج والتي ستعرضها لكل منتج - الكود سيكون بالشكل 
التالى: 4 Item Number:‏ 
Item Name: Fish 5‏ 
Item Price: %5‏ 
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SqlConnection cn = new SqlConnection (@"Data Source=AHMED-PC\SQLEXPRESS; Initial 
Catalog=Items; Integrated Securlty=True;Pooling=False"); 
CON ODOR, 
SGLCommand CMQ = new SGLCommanda{ "Select * TEOM Items", CN); 
SqlDataReader dr = cmd. ExecuteReader () ; 
Response.Write ("<center><table border=1><tr valign=center align=center 
bgcolor=#AAAAAA><td><b>Item No.</b></td><td><b>Item Name</b></td><td><b>Item 
PELCOCI DSC TOSCO EDS DICE OSE TDS 
while (dr.Read() ) 
{ 
RESPONSE WEILE (FETE ZE TO ECD" tt OF UOLINLOUOT ETIOSLEING() E FERE Ty 
RESDONSE.UEILE (TET OET LI OFECSLCEHINCOL) OT, 
ROS ONSEUEILE (TET ET FB OF UETTNT OAL FT 2 TOSLLIRNG() E FE, 
RESGONSE.WEILCE(OTETOS CIM SFC IMAGES" £ OF. UCEOLCSLEILNG(S} 
NESE le Ey 
} 


Response.Write ("</table></center>"); 


VB.NET 


Dim cen As New SalConnect lon ("Data SOUrFCE=AHMED-PC\SOLEXPRESS; Initial 
Catalog=IlItems; Integrated Securility=True;Pooling=False™") 

cn. Open () 

Dim cmd As New SqlCommand ("select * from Items", cn) 

Dim dr As SqlDataReader = cmd.ExecuteReader () 

Response.Write ("<center><table border=1><tr valign=center align=center 
bgcolor=#AAAAAA><td><b>Item No.</b></td><td><b>Item Name</b></td><td><b>Item 
PEIOGC DOU OBE ODT MOLEC DEC OO TTT) 

While dr.Read() 


REEDONSE WEILER ET FT OF GOTIN OAC IOSLEING() E POD OT) 
RESO ONSE UEILEO (TET OE FB OFC LTINGCL), FE FET, 
RESBONSE,WEILE (SECS tt OFCEEINTOAA FT 2 TOSETINGC F# FEE) 
RéSGBONSEWELLE ETO CING AFCO MAGES" E OC OOLSLTING OS) FE UTD LET) 
End While 
Response.Write ("</table></center>"™) 


والناتج سيكون بالشكل التالي مثلا: 
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الصورة 22. 19. نتائج تنفين الشفرة. 
*** هذه هى نفس الطريقة التى كنا نطبقها فى عالم ٤أكئةا€) A5۲‏ » الآن ستتعرف على بعض 
التسهيلات التي تتيحها تنا ال أع"١.‏ 


DataGrid .1 .9 


تعتبر هذه الاداة اكثر ادوات البيانات شهرة مع ا٥١.۸5۶‏ ستجرب الآن التعامل معها... 
قم برسp۾ «Dat aGF1d‏ قم يبرسم مريبع نص وزر آمر من اجل عملية البحث» ومن ثم قم بسحب 
SqlDataSource‏ ونقوم يبربطما بجدولنا بالشكل التالي: 
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Which data connection should your applicatln use to connect to the database? 
|ahmed-pc\sqlexpress.hems.dbo | New Connection. 1 


= Connection strirmg 
ata Sourtea  AHMED-PONSQLEXPRESS Integrated Securitya Trak Poolinga Falsêlnitial Cataloga Terms 


الصورة 22. 20. تهيأة مصدر البيانات. 
سیطلب a,‏ حفړظ .Next hé‘. ConnectioNSTrF1NG J|‏ 
في الخطوة الثالثة سيطلب منك تحديد مصدر البيانات » قم باختيار كافة محتويات الحقل: 
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Configure Data Source = SqlDataSourcel 


1 Lonfigure the Select Statement 
س‎ 


How would you like to retrieve data from your database? 
) Specify a custom SQL statement or stored procedure 
3ı Specify columns from a table or view 
Namê: 
| Items 


Colm 


00| | FÎ Fetum only unique rows 
Ep WHERE... 


E] emam 


E] kemPrice | ORDER BY... | 


Î] EermPicturê 
Advanced... | 


SELECT statement 
SELECT *" FROM [Items] 


Cancel 


الصورة 2. 21. تهيأآة مصدر البيانات. 


ونحدد نوعه بأنه أ۲0أC0۸‏ ونضع اسم مربع النص بالشكل التالى: 
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em : ر‎ la تا ل ن ین ال جنا یی نفا‎ Lia 
Configure Data Source - SqlDataSourcel ل 3 ا ا‎ 


yrceš Sql Datasourcel | _ 
e-5 a 1 
Configure the Select Statement 

أ ت | 


1 ص ص 


Add WHERE Claaize 


E = ——- gene ` 


Ãıdd one or more conditions to the WHERE clause for the statement, For each condition you can specify either a literal valwe or 
a pPararrvetenzed value. Parameterized values get their values at runtime based on their propertiêt. 


kol umine Parameter properties 
|kemPrice د‎ Control ID: 
ا‎ Operator: | TextBaudl "| | E Return only unique rows 1 
F Default value | 
1 

Kontrol | 
SQL Expression Value: 1 
[temPrice] < hemPrice TextBoxl.T et ! 
WHERE clause 
َ 

إا .سل 

Lance 
` | SelectQu 


الصورة 22. 22. اضافة شروط على البيانات. 
فقط يمكنك تجربة ال 0116۲۷ » اضغط انهاء. 


الآن سنقوم بالعودة إلى الل 2126۲10( قم باختيار (ata501٣٤٤‏ لها ليكون ال 
DataSource‏ الذي قمنا 
بانشاءه مننذ قليل بالشكل التالى: 


ma a a O a Bi 


ID ItemName ItemPrice ItemPicture ÛÎ GridView Tas 
| 


1 

2 Lonfigqure Data Source... 

الصورة 22. 23. تعيين مصدر ك د د 
Edit Columns...‏ 
البيانات الخاص بال AdaNew Column. „Data GFiİd‏ 


[O] Enable Paging 
[| Enable Sorting 
I Enable Selection وفقط » قم بتجربة البرنامج › قم‎ 


Edit Templates 
: باختیار ار قام مختافة و الضخط‎ 
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علی زر E۸6۲‏ » الناتج سيكون شيناً مشابها لهذا: 


اأ حلت عر اليسائح EEE‏ افع 80 


emPrice ItemPicture 
10 orange.jpg 


الصورة 22. 24. عرض البيانات على ال 6٣۵‏ aأ0a.‏ 

خصائتص اضافية 

سنتحدث الآن عن بعض الخصائص الاضافية المرفقة بهذه الأداة » اولها هي المظهر. 

يمكنك تعديل المظهر من خلال C55‏ خاص» ويمكنك الاختيار بين الموجود بالشكل التالي : 


ID ItemName ItemPrice emPictuı 8| E Ta 


Select a scheme: Preview: E. | DataSource اتا‎ 
Remove Formatting 2 LConfigqure Data Source... 
Simple Û abc 0 abc | Edit eT 
e l1 lab i [Add New Column... 


Autumn 
Oceanica , e Mave Column Left 


Brown Sugar | Remove Column 


ab abc 


eT IF] Enable Paging 
sand & Sky ا‎ 


Rainy Day ا‎ Enable Sorting 
Snowy Pine 


Lilacs in Mist î Enable Selection 
Black & Blue 1 e 

Black & Blue 2 
Clover Field 
Apple Orchard 
Mocha 


الصورة 22. 25. تهيئة طريقة عرض ال 6۲١‏ ه02 باستعمال ال .C55S‏ 
النقطة الثانية » هي السماح بالعمليات المختلفة على أداة 6٤۲10۷167۷‏ يمكتنك السماح بوجود 
الصفحات ‏ والاخار والتر تب نضا 
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1 - ا‎ E ا آ4‎ 
ID ItemName | ItemPrice | ItemPicture E lala ik 
E ٠ | | Auto Format... 


ت 


Choose Data Source: | SqlDataSourcel 


الصورة 22. 26. اختيار العناصر فى 


» 


Configure Data Source... 
Refresh Schema . 
Edit Columns... على عکس ال‎ DataGrid ال‎ 
Adid New Column... 


Move Column Left . Gr 1 d Vi 2 WwW 


Remove Column 
الناتج سيكون شينا بالشكل التالي:‎ 


Enable Sorting 


abc 
abc 
abc 
abc 
abc 
abc 
abc 
abc 
abc 
abc 


سا | فع | ديا | طط | صا| كج | لق | يج أ صا 


Enable Selection 


| ج | | تع | دا | ساك فإ تة اض 


Edit Templates 


اللآن ستنجرب وضع حدث للاختيار» يمكنك النصت عن التائ تتا ن E0‏ 


قراءة السجل المجدد باستخدام: 
ID [ItemName [ItemPrice [ItemPicture‏ 


2 7 - 
select Z2 Orange oranre. [ps 


select 3 Apple 135 apple. fîpE 


CF 


string something = GridVlewl.SelectedRow.Cells[0].ToString (); 


VB.NET 


Dim something As String 
something=GridViewl.SelectedRow.Cells(O0).ToString () 


HH AlternatınqRowotyle 
Autobeneratekolumns False 
AutoenerateleleteButtoı True 
AutolenerateEdıtButton [rue 


AııtotenerateîelectButtor BE T= ا‎ 
ar 


تسمح لنا هذه الخصائص بعمليات الحذف والتعديل والاضافة » بالشكل التالى متلا: 
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| ItemName ۰ ItemPrice ItemPicture 
Edit Delete Select Select 1 Lar ames 50 car PS 


Update Cancel A Orange with apple] | 10 orange. jpg 
Delete Select Select Apple 15 apple. jpg 


4 
Edit Delete Select Select 4 Pish 3 fish. fpE 


الصورة 22. /2. امكانيات العرض الاضافية التى توفرها الخصائص 
AutoGenerateEditButton‏ ... 

هناك em‏ ادوات اخری مثل ۴۳٥۲۳۷1٥ W‏ و ۷1eWء|أها0€‏ والتي تستخدم اتختا للعرض و خلافه. 
لكل هذه الادوات » يمكن التعديل في خصائص الأعمدة واسمائها حسب ما تريد بالشكل التالي مثلا: 


ID ItemName O | | GridView Tasks 


Auto Format... 
ت ج ج هننم‎ - 5 
| Choose Data Source | SqlDataSourcel 3 
ÎConfigure Data Source... 3 
ET E 
Available fields: BoundField properties: انا خاس‎ : 
12[ الفا‎ Fields) | 5|4 | 
AccessibleHeaderT ext Enable Paging 
El Appearance | Enable Sorting 
[E] kemPicture ست مانس‎ I] Enable Selection ] 
CheckBoxField | Headerlmagelrl ا‎ 
2 س‎ Edit Templates I 
El Hunerl inkFielrl < 
Appleman Edo! False e 
Heca elde ConrertEmptyStringTok True e 
HtmlEncode True ا‎ Ce 
EI New | HtmlEncodeFormatStrir True ts 
1 حت‎ ١ InsertVisible False 5 
-| temName : 
: NullDisplayT ext 
I ftemPicture HeaderText Da 
The text within the header of this field. چ‎ 
E] Aute-generate fields ert this field i 11 1 ” || Data 
0 ThE 
ا || آ۶‎ 


i NEMA 


Ln 50 


الصورة 22. 28. تعديل خصائص الأعمدة. 


كانت هذه جولة سريعة في عالم قواعد البيانات مع ا€١.۸5۶.‏ باقي التفاصيل تجدها فى الدروس 


ADO.net JJ الاساسية‎ 
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WAP .10 


فى هذا الدرس» سوف نتعرف سوية على التقنية المعروùة Protocol Wireless Applicati0ټ¬ pul‏ 
واي تقرف اختضارا باسم »N/۸۴‏ كما سنتطرق فى الجزء الثانى من هذا الدرس إلى كيفية 
التعامل مع هذه التقنية من خلال أ٥۸.‏ 


WAP واھ[‎ .1 .0 


Mobile App|icatiټ0¬‎ لJيابوملا تطبيقات‎ 


لم يعد الموبايل وسيلة اتصال بسيطة لاجراء المكالمات الهاتفية مثلما كان الهدف منه وقت 
ظهوره » إنما تطور الأمر الآن ليصبح الموبايل وسيلة خدمية وترفيهية وتعليمية أيضاً » ولم يعد 
الموبايل يستخدم من أجل المكالمات بل آأصبح يستخدم في الدخول على الانترنت واستخدام 
التطبيقات المتقدمة والملتيميديا وغيرها. 


ولهذا السبب وغيره ظهرت مصطلحات جديدة لتدل على تطبيقات الموبايل وبرامجه ونظم 
التشغيل الخاص به» وكان من ضمن هذه المصطلحات مصطلح WA۶‏ مردافا لمصطلح N۴8‏ علی 
الحاسبات الشخصية والذي يرتبط بعالم الإنترنت وخدماته . 


ş WAP J| ما هو‎ 


كا اا ا فكلمة ۷۸۶ هي اختصار »Wireless Application Protocol anl‏ وڪما هو 


واضح من الاسم فإن هذا يعنى ان W۷۸۴‏ هي معيار أو 5١03۲۵0‏ عالمى يهدف إلى ربط أجهزة 
الهواتف النقالة ك أا بالإرتباط بالإنترنت » وتم تطويره فى النصف التانى من تسعينات القرن 
المتنصرم . 


وقد جاء هذا البروتوكول الموحد ليلم شتات آفكار شركات المحمول الکبرى والتي ڪانت ڪل 
منها تعمل متفردة وفى اتحاه مختلف عن الآخرين . 


ş WAP كيف تعمل‎ 


تتميز ۷۸۶ عن W۴۳5‏ بأنها تعمل فى اطار امكانيات الهواتف المحمولة » وهذا ما يستلزم 
بالضرورة تصغير حجم البيانات والتعامل مع ضعف السرعه وضعف قدرات المعالجات الخاصه 
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بالأجهزة المحمولة مقارنة بالأجهزة الشخصية وصغر حجم الشاشة التى يتم عرض البيانات من 
خلالها أيضا . 


ومن خلال تقنية ال N۸۶‏ تم لم شمل شتات شركات المحمول الكبرى والتي كانت ڪل منها 
تیعر کرد تى اتاد مخلف مها لأفحال خدمات الأتر تت على اجه تا المجهوة , 


وتبدآ قصة ال W۷۸۴‏ من خلال طلب العميل ل أ۸ لا معين لصفحة ما أو لملف وخلافه » وفي حالة 
طلب صفحة فإنه يتم ترجمة ا11۷١‏ إلى ا۷/۷ وهي طريقة عرض مناظرة لل 11۷M]‏ يتم 
استخدامها ضمن بروتوكول ال N۸۶‏ وسوف نشرحها في الفقرة التالية . 


والجدير بالذكر آن بعحعض الهواتف المحمولة آصبحت تدعم HTML‏ أيضا ا 


WML .2.10 


هي طريقة لوصف البيانات مشابهة جدا لطريقة عمل ا1۷ ولكنها على معايير ا۷1» 
وتختلف عن ا11۷ في عدد من النقاط منها : 


- الوسم ۳۵8 الرئيسي هو <۷"1> بدلا من <1" >٤‏ 


- ينقسم المستند إلى بطاقات Cards‏ لتسهيل العرض حيث تبدأ كل بطاقة ب >٤-34۲0<‏ وتنتهى 
آیضا ت 0/۶ 269. 


بداية سنعرض مثالا يوضح كيفية كتابة ا۷“ وذلك بالشكل التالى مثلا - من ويكيبديا - : 


<?xml version="1. 0" ?> 
<!DOCTYPE wml PUBLIC "—-//PHONE.COM//DTD WML 1.1//EN" 
"http: //www.phone.com/dtd/wml11. dtd" > 


<wml> 
<card id="main" title="First Card"> 
<p mode="wrap">This is a sample WML page. </p> 
</card> 
</wml> 


قراءة القيم المختلفةه وتخزينها وعرضها للمستخدم : 


بكل بساطة يمكنك تعريف المتغيرات واسناد قيم لها بالشكل التالي : 
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WML 


<setvar name="First_ Name" value="Ahmed" /> 
<setvar name="Age" value="21"/> 


ولاحقا يمكنك عرضها بالشكل التالي متلا : 


WML | ا‎ 

<p>First Name: $ (First _ Name) </p> 

ويمكن ايضا قراءة قيمة مربع نص أو ا٥٠1٥5‏ بنفس الطريقة تماما حيث يتم وضع اسم الأداة 
بدلا من اسم المتغير ... 


مثال لقراءة قيم آداة اختيار وعرضها للمستخدم - متال منقول - : 


<card id="card1" title=" Tutorial "> 

<do type="accept'" label="Answer'""> 

<go href="#card2"/> 

</do> 

<p> 

<select name="name "> 

<option value="HTML'">HTML Tutorial</option> 
<option value="XML'">XML Tutorial</option> 
<option value="WAP'">WAP Tutorial</option> 
</select> 

</p> 

</card> 

<card id="card2" title="Answer'"'> 

<p> 

You selected: $ (name) 

</p> 

</card> 

</wml> 


WAP+ASP.net .3 .10 


إذا قمنا بتحويل التطبيق الذي عرضناه في آو ل المقالة - المنقول من ويكيبيديا - والذي كان 
بالشكل التالي : 


<?xml version='"1. 0" ?> 
<!DOCTYPE wml PUBLIC "—-//PHONE. COM//DTD WML 1.1//EN" 
"http: //www.phone.com/dtd/wml11. dtd" > 


<wml> 


<card id="main" title="First Card"> 
<p mode="wrap">This is a sample WML page. </p> 
</card> 
</wml> 
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وقمنا بتحويله إلى أ€١.‏ فسوف يكون بالشكل التالي : 


ASP.NET 


@ Page Inherits="System. Mobile. UI. MobilePage" Language="C#" 
@ Register TagPrefix='"mobile" Namespace="System. Mobile. UI" 
<mobile:Form runat='"server'""> 


<mobile:Label runat="server"> 
This is a sample WML page. 
</mobile:Label> 
</Mobile:Form> 


في حالة رغبت في التعامل بواسطة ۷8.1٥€‏ غير السطر الأول فقط ليصبح بالشكل التالي : 


ASP.NET | E 


@ Page Inherits="System. Mobile. UI. MobilePage" Language="C#" 


والآن عند طلب الصفحة من قبل العميل» يتم أو لا تحويل الصفحة إلى ]ا٧/١‏ فى حالة ڪان 
الطلب من جهاز هاتف محمول › آو يتم التحويل مباشرة إلى )۳11۷ في حالة طلب الموقع من 


جهاز شخصي آو ڪومبيوتر ڪفي . 


ڪان هذا أبسط متال لتطبیق ۷/۸5 من خلال N۴.‏ » ولكن ما زال بامكانك عمل الكثير فى هذا 
المجال في موضوع برمجهة الموقع عموما › وفي التعرف على الآجهزة الزائرة وامكانياتها وغير 
ذلك من الخيارات المتقدمة خصوصا . 


Ajax .11 


قى هذا الدرس. الأخير حول A5۴.۸6‏ سنستكرض سرنعا ‏ كفية الأستفادة من خدمات تقنة 


الإنترنت المعروفة باسم ۸۸۸ من خلال أع.١.‏ 


11. 1. اجاکس ×هaزA۸‏ 

هي اختصار لكلمة ا)M× Asynchronous لavaScripمt a¬d‏ » وفي الواقع فهي ليست لغة برمجة 
جديدة آو تقنية جديدة قدر ما هي استخدام للموارد الموجودة بطريقة آخرى » وببساطة » تعتمد 
اجاكس على تجزيء الصفحة إلى عدة اقسام تتم معالجة كل قسم على حدة » وفي هذه الحالة 


انه هتد طلت العمل لزه ها لن کون مضطر ا لاتطار. تدك لحه امل 
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ولعل أشهر أمتلة استخدام ×۸۸ هو البريد الإلكترونى أأ۳3٣6‏ اضافة إلى النسخة الجديدة من 


البريد الإلكترونى لل Y2۸00‏ و أأجة"٣‏ اه1 . 


لمعرهفة المزيد ريبما تستطيع زيارة صفحه ويكيبديا عن هذه التقنية: 


رابط گے 


كيف أيداً من خلال أ16. ؟ 


قامت مايكروسوفت باصدار عدة نسخ من الآدوات التي تساعدك وتسهل الحصول على المميزات 
المتاحهةه فى AJAX‏ > لكنك على ايه حال تستطيع القيام بهذا الآمر فی أبسط صوره یدو یا > أو 


باستخدام ما یسمی باسم Atlas‏ وهي نسخة من مايكروسوفت خاصةه ب AJAX‏ . 


وللمزيد من التسهيل قامت مايكروسوفت باصدار )امتا ×هزA‏ أمم.مAsp‏ » وهي مجموعة من 


الآدوات المختلفة التى يمكن استعراضها من خلال هذا الرابط 


رابط ھے 
http://ajax.asp.net/ajaxtoolkit/‏ 
تستطيع زيارة الموقع وتحميل هذه الأآدوات من خلال الرابط: 


رابط ھے 
http://ajax.asp.net/‏ 
كما يوفر الموقع مكتبة ضخمة من المواد التعليمية لهذه الأدوات ول ا6١.۸50‏ عموما » يمكن 


الوصول إليها عبر هذا الرابط: 


رابط گي 
http://www.asp.net/learn/default.aspx?tabid=63‏ 
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يمكتنك البدء من خلال هذا الفيديو تحدیدا: 


رابط گے 
http://download.microsoft.com/download/0/f/6/Of651a0Of-6f2b-4497-bO061-‏ 
e1b2825e22e0/MSAJ AX-ToDoList-Video.zIp‏ 


وسيقوم بالشرح منذ البداية عن كيفية استخدام كهااA.‏ 


وهناك دروس آأخرى لشرح كيفية البدء باستخدام ٠0١0|)‏ ×هزA‏ مباشرة منها هذا الفيديو: 


رابط گے 


http://www.asp.net/learn/videos/view.aspx?tabid=63&id=75 
http://www.asp.net/learn/videos/view.aspx?tabid=63&id=76 


والآن » ستبدأً فى عمل تطبيقنا الآول... 
جرب عمل مربع نص لتعرض فيه الوقت الحالى › ايضا قم باضافة صورة لتستطيع تمميز تحديث 
الصفحة » ومن ثم قم بكتابة الكود التالى فى زر الأمر 


CF 


TextBoxl. Text = DateTime.Now.ToString (); 


VB.NET 


TextBoxl.Text = DateTime.Now.ToString ()‏ 
هل لاحظت ما يحدث » بالفعل يتم تحديث الصفحة بالكامل › الآن سنحاول تطبيق نفس المبدء 


بحيث ل يتم التآثير سوى على الجزء الذي سيتم التعديل فيه 


لذا قم بداية باضافة 5٤۲1] 131١239081١۲‏ من ضمن ادوات اجاكس بالشكل التالي: 
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IH WebParts 


lk Pointer 


| ScriptManager 

A Script ManagerProxy 
E Timer 

¦ UpdatePanel 

i UpdateProgress 

TH Reporting 

¥ HTML 

= General 


scripta 
Version 3, 
NET Com 


الصورة 22. 28. تعديل خصائص الأعمدة. 


الآن قم «UpdatePanel au‏ وقم يوضع مربع النص وزر الآمر بداخلها مع ترك الصورة 
فقط في الخار ج » سيكون كود الصفحة بالشكل التالي: 
ASP.NET‏ 


@ Page Language="C#" AutoEventWireup='"true" CodeFile="Default6.aspx. cs" 
Inherits=" Default 6" 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional //EN" 
"http: //www.w3.org/TR/xhtml1/DTD/xhtml1-transitional . dtd"> 
<html xmlns="http: //www.w3.org/1999/xhtml "> 
<head id=" Head1" runat="server"> 
<title>Untitled Page</title> 
</head> 
<body> 
<form id=" form2" runat="server"> 
<div> 
<img src=" images/food. jpg" /> 


<asp : UpdatePanel ID="UpdatePanell1" runat="server'"><ContentTemplate> 


<br /> 

<br /> 

<asp : TextBox ID="TextBox1" runat="server'"></asp : Text BoOox> 

<br /> 

<asp : Button ID="Buttonl" runat="server" onclick="Button1 Click" 
Text="ShowTime'" /> 
</ContentTemplate></asp : UpdatePanel> 


</div> 

</form> 
</body> 
</html> 
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والآن جرب » هل لاحظت الفارق فعلا ٩5‏ 


جميل » الأن سنتحاول تطبيق موضوع آخر ماذا لو افترضنا اننا نريد وضع زر الامر خارج ال 


أaneم update‏ بحیث لا یتم تحدیته › هذا ممکن. 


فقط اسحب زر الآمر خارج ال أع٥"ة٣‏ عdat‏ من » وقم بكتابة الكود التالي داخل ال أ٥م”aم update‏ 


ASP.NET 


<Triggers> 


<asp:AsyncPostBackTrigger ControlID="Buttonl1l" EventName="Click" /> 
</Triggers> 


ليصبح الكود كاملا بالشكل التالي: 


ASP.NET 


<%@ Page Language="C#" AutoEventWireup="true" CodeFile="Default6.aspx. cs" 
Inherits='" Default 6" 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN'" 
"http: //www.w3.Oorg/TR/xhtml1/DTD/xhtml1-transitional . dtd"> 
<html xmlns="http: //www.w3.org/1999/xhtml "> 
<head id=" Head1" runat="server"> 
<title>Untitled Page</title> 
</head> 
<body> 


<form id=" form2" runat="server"> 

<asp:ScriptManager ID="ScriptManagerl" runat="server"> 
</asp:ScriptManager> 

<div> 

<img src=" images/food. jpg" /> 

<asp : UpdatePanel ID="UpdatePanell1" runat="server'"><ContentTemplate> 


<br /> 
<br /> 
<asp : TextBox ID="TextBoxl1" runat="server"></asp : TextBOox> 
<br /> 


</ContentTemplate> 
<Triggers> 
<asp:AsyncPostBackTrigger ControlID="Buttonl1l" EventName="Click" /> 
</Triggers> 
</asp : UpdatePanel> 

<asp : Button ID="Buttonl" runat="server" onclick="Button1 Click" 
Text="ShowTime'" /> 


</div> 

</form> 
</body> 
</html> 
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هل خط التارة رة خرف 
عودة لقواعد البيانات 


ستعود لتطبيقنا الآخير حول قواعد البيانات » جرب وضع صورة فى الصفحة » وجرب وضع اي 
قيمة في حقل السعر الأقصى وقم بالضغط على .٤۸)€١‏ 


هل لاحظت ما يحدث » ايضا يتم تحديث الصفحة بالكامل » فى تطبيقنا التالى سنجعل التحديث 


يطال ال 6۲|۵۷18W‏ فقط دون أن تتأثر باقي محتوياته. 


الموضوع E‏ كما جربناه » ضع ٤٣3م‏ ةلملا » وضع فيها ال 6W‏ 6۲۵۷1 » اضف زر امر › 


ومن ثم اضف ال ۲۲886۲5 كما تعودنا في الدرس الماضي » سيصبح الكود الكامل بالشكل التالي: 
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ASP.NET 


<%@ Page Language="C#" AutoEventWireup="true" CodeFile="Default5.aspx. cs" 
Inherits="Default5" %3 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http: //www.w3.Oorg/TR/xhtml1/DTD/xhtml1-transitional . dtd"> 
<html xmlns="http: //www.w3.org/1999/xhtml "> 
<head id=" Head1" runat='"server"><title>Untitled Page</title></head><body> 
<form id="form2" runat="server"><center><div> 
<asp:SqlDataSource ID="SqlDataSourcel" runat="server" 
ConnectionString= "<$ ConnectionStrings : ItemsConnectionString $<" 
SelectCommand="SELECT * FROM [Items] WHERE ([ItemPrice] &lt; @QItemPrice) "> 
<SelectParameters> 
<asp :ControlParameter ControlID="TextBOxl1'" DefaultValue=" 0" 
Name=" ItemPrice" PropertyName="Text'" Type="Int64" /> 
</SelectParameters> 
</asp:SqlDataSource><br /><br /> 
<asp : Button ID="Buttonl" runat="server" Text='"Button" /> 
«nbsp; <asp: TextBox ID="TextBoxl" runat='"server">1000</asp : TextBox> 
<asp:Label 1ID="Label1" runat="server" 7[ext="ثılا|l تحت الıضlئذع ئن‎ 
'سعر‎ '<>/aspP : labe1l><br /> 
<asp:ScriptManager ID="ScriptManagerl'" runat="server" 
EnablePartialRendering="true'"'> 
</asp:ScriptManager><br /> 
<asp : UpdatePanel ID="UpdatePanell1" runat="server" > 
<ContentTemplate> 
<asp: GridView ID="GridViewl" runat="server" 
AutoGenerateColumns="False" DataKeyNames=" ID" DataSourcelD="SqlDataSourcel " 
AllowPaging="True" AllowSorting="True" AutoGenerateDeleteButton='"True" 
AutoGenerateEditButton="True" AutoGenerateSelectButton="True" BackColor="White" 
BorderColor="#E7E7FF" BorderStyle=" None" BorderWidth=" 1px" CellPadding="3" 
GridLines="Horizontal" onselectedindexchanged="GridViewl SelectedIndexChanged"> 
<FooterStyle BackColor="#BSC7DE" ForeColor="#4A3C8C" /> 
<RowStyle BackColor="#E7E7FF" ForeColor="#4A3C8C" /> 
<Columns> 
<asp : CommandField ShowSelectButton="True" /> 
<asp : BoundField DataField=" ID" HeaderText=" ID" InsertVisible="False" 
ReadOnly="True" SortExpression="ID" /> 
<asp : BoundField DataField=" ItemName" HeaderText=" ItemName "" 
SortExpression=" ItemName" /> 
<asp : BoundField DataField="ItemPrice" HeaderText=" ItemPrice" 
SortExpression=" ItemPrice" /> 
<asp : BoundField DataField=" ItemPicture" HeaderText=" ItemPicture" 
SortExpression=" ItemPicture'" /> 
</Columns> 
<PagerStyle BackColor="#E7E7FF" ForeColor="#4A3C8C" HorizontalAlign="Right'" /> 
<SelectedRowStyle BackColor="#738A9C" Font-—-Bold="True" ForeColor="$#F7F7F7" /> 
<HeaderStyle BackColor="#4A3C8C" Font-—-Bold="True" ForeColor="#F7F7F7" /> 
<AlternatingRowStyle BackColor="$#F7F7F7" /> 
</asp:GridView>ContentTemplate> 
<Triggers><asp:AsyncPostBackTrigger EventName="Click" 
ControlID="Buttonl" /> </Triggers> 
</asp : UpdatePanel><br /><br /><br /></div><center></form></body> 


</html> 
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الآن فقط قم بتحر ية الصفحة» و لاحظ الفارق. 
AJAX Toolkit‏ 

توفر مايكروسوفت مجموعة جميلة من الأدوات التي تساعدك على تطبيق مبادئ ×4 [Aء‏ 
يمكنك استعراض الادوات المقدمة هنا 


رابیط گے 
http://www.asp.net/ajax/ajaxcontroltoolkit/samples/‏ 
يمكکٽنڪ معرهفة ڪل شيء عن اي و احدة فيهم عن طر يق الفيديوهات التعليمية » تحدها ها: 
رابط قي 
http://www.asp.net/ajax/ajaxcontroltoolkit/‏ 
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خانوۂ الکناب 


إلى هذا الحد نكون قد وصانا لنهاية جولتنا مع عالم 2008 أع٠.‏ والذى يحتوي 
على النقاط الأساسية في عالم 2008 اع.. . أرجو من اللہ أن يكون مفيدا وأن أكون 
قد ساهمت فى زيادة المعرفة ولو بسضيءع يسير . 


يوكنك مواصلة الإطلاع على اخر نسخة الكتاب عن طريق صفحة الكتاب على مدونتي 
الإلکترونیہ : 
رابط گے 

http://www.AhmedGamal-Technical. blogspot.com 


وكوا ذكرت في البداية أعود وأكرر في النهاية ٠.‏ فضلاً لو وجدت أي خطا في 
الكود أو في المعلومة أو حتى خطا إملائي فساكون في غاية السعادة لو راسلتني بہ 
على بريدي الإلكتروني. ايضاً ساكون سعيداً لو كان لديك اقتراحات لتطوير وتحسين 
النسة الوستفبلیہ من هذا الكتاب . 


أكرر شكرى ورة أخرى لكل من ساهم أو ساعد أو دعمني في كتابة هذا الكتاب. 
والحمد للہ رب العالمين . 


وصلی اللہ على نبینا محمد وعلى الہ وصحبہ أجوعين . 
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الوراد ۾ 


Pro C# 2008 ڪتاب‎ - 


Pro C# 2008 and the .NET 3.5 Platform, Exploring the .NET universe using curly 
brackets. 


Aouther: Andrew Troelsen. 
Edition: Fourth Edition 


MSDN - 


MSDN - Microsft Developer Network, 
http://msdn2.microsoft.com/en-us/default.aspX 
. مقالات متفرقة من منتدى فيجوال بيسڪ للعرب‎ - 
http://www.vb4arab.com 
. من منتدى الفريق العربي للبرمجه‎ 


http://www.arabteam2000-forum.com/ 
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